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The system presented here was designed and developed hy the Systems 
Development Group of the Computer Services Department to facilitate 
the solution of general scientific problems on the Univac 1103AF. 

The following personnel joined in the planning and programming: 

Frank Brown, Tom Dewey, Ray Hedberg, Dave Nelson, A1 Podvin, Don Rich¬ 
ards, Bob Rock, Don Wilson, and Wolf Wootan. Special credit is given 
to Bemie Dove, Dr. Dick Talmadge, presently of IBM, and Jack Reynolds, 
also of IBM. 

This system has been in successful operation on LMSD's two 1103AF com¬ 
puters since March 15, 1958. 

A Basic Operational Scheduling System (BOSS Automonitor) is presently 
undergoing extensive testing and will become an integral part of the 
system In early September. 

Requests for additional copies of this publication should be addressed 
to: 


Executive Secretary, USE 
Remington Rand Univac 
Division of Sperry Rand Corp. 
315 Fourth Avenue 
New York 10, New York 



SECTION I 


SUP 


Symbolic Language Assembly Program 

2-Core Version - R. Rock 
1-Core Version - D. Richards 



SYMBOLIC LANGUAGE ASSEMBLY PROGRAM 
(SLAP) 


I. GENERAL DESCRIPTION 

The Symbolic Language Assembly Program is a two-pass, decimal, 
symbolic assembly program which is designed to translate a Univac 
Scientific Model 1103A program coded in symbolic, decimal, and octal 
form into its final binary form. 

At present, SLAP is designed for an 1103A with variable block 
tape mode and 8192 words of magnetic core storage. A maximum of 
102U tags, 100 constants, and 75 undefined tags is permitted. 

The average assembly rate is 800 lines of coding per minute. 

A sample coding sheet is included as Figure 2. 


II. INPUT 

SLAP accepts information from magnetic tape prepared by the 
Card-to-Tape Converter. The allocation with respect to the card 
column is as follows: 

• 1-6 Location field. This field should contain a tag or 

be blank. If no tag appears, the field is ignored. 

A tag may contain as many as 6 alphanumeric characters, 
at least one of which must be alphabetic. 

« 7-10 Standard 1103A mnemonic operation characters or pseudo¬ 

instruction symbols. Blank or zero operations are also 
valid. Octal operations will translate correctly but 
will cause an error indication. 

• 13-214 U address field. This field may contain a reference 

to a tag, a constant, or a decimal or octal location, 
or it may be blank. 

• 25-36 V address field. Same as the U address. 

• 37-60 Comments. Up to 2 I 4 Hollerith characters are permissible. 
75-80 Sequence number. 
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III. OUTPUT 


SLAP yields the following outputs; 

• An XS~3 tape containing a reproduction of the symbolic 
program, a listing of the sequence numbers from the 
cards, and a side-by-side octal translation for listing 
purposes. 

• An octal XS-3 tape containing the octal translation and 
necessary information for loading of the program. 


IV. REMARKS* 

1. The storage and execution addresses will both begin at 
OOOlOg unless a pseudo SETL instruction is given. 

2. The storage address will appear in the octal translation 
only if it differs from the execution address. 

3. L is a special tag and will be translated as the execution 
address of the instruction in which it appears. L may not 
appear in the tag field. 

k* FILL is a special tag and will be translated as 30000. 

FILL may not appear in the tag field. 

5>. The j of the repeat instruction appears in the operation 
field and may be written as RP1, RP2, RP3, or RPV, RPU, 

RPB. 

6. The j of the Left Transmit instruction appears in the 
operation field and may be written as LTO, LT1, or LTL, LTR. 

7. A and Q are special tags and. will be translated as 32000 and 
31000, respectively. They may not appear in the tag field. 

8. If the content of the U field or the V field is numerical, 
it will be translated as a decimal integer. If the content 
of the field ends with B but is otherwise numerical, it 
will be translated as an octal integer. 

9. Decimal increments less than 10^ are permitted. 

10. The Compiled Region is a block of consecutive cells set aside 
by SLAP for the constant pool and undefined tags. Normally 
it is located immediately after the last program address. 


* See Figure 3 
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MS 


FILL 

See REMARK 4 

RFV 

3 
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See REMARK 5 

TP 
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SETL 


S 

See 
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12 
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TN 
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ST 

GAMMA+999 
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See 
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MP 

L(123) 
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SO®S 

15 


See 

PSEUDO-INSTRUCTIONS 

SA 

DELTA 
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F 

1.50 

2 

See 

PSEUDO-INSTRUCTIONS 

F 

15000 
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S15 

1 

3 

See 
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B 

123 


See 

PSEUDO-INSTRUCTIONS 

315 

123 




RSRV 

10B) 

20 

See 

PSEUDO-INSTRUCT IONS 

CALL 

■SINE 


See 

PSEUDO-INSTRUCTIONS 

QR 

L( 77) 

SLAP 

See 

WARNINGS 

TP 
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BETA+B 
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CONSTANT : 

POOL 

L(123) 





L(1233) 





L(77) 
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TAGS 

SLAP 
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See 
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Fig. 3 Sample SLAP Program 


oooio 45 ooooo 00454 


60000 00454 

60001 oo 455 

60002 00456 

60003 00457 

60004 001*60 

60005 

60006 

60007 00001 
60010 00002 

60011 00003 

60012 00004 

60013 00005 

60014 00006 

60015 00007 

60016 00010 
60017 oooio 
60020 00011 


16 00454 oooio 
46 00456 00457 
56 00000 30000 
75 10003 00455 
U 00455 00453 

22 10014 00461 
13 32000 31000 

21 ooioo ooi44 
36 61754 56040 
n 00042 00043 

32 00460 00017 
21 04540 ooooo 
21 04540 ooooo 
oo 01750 ooooo 
77 77777 77760 
00 00000 00123 
00 00123 OOOOO 


60031 00036 37 00041 00037 

60032 00037 53 00044 00045 NOP D 

60033 00040 n OOOIO 00454 OCT D 

60034 00041 45 ooooo 60035 

60035 00042 00 ooooo 00173 

60036 00043 00 ooooo 00123 

60037 00044 00 ooooo 00115 

60040 00045 00 ooooo ooooo 

60004 





but the programmer may locate it wherever he wishes, 
with a pseudo SETL instruction immediately preceding 
the END instruction. 

The Constant Pool contains ail the constants, ex¬ 
pressed in L(xx) form, in the program. SLAP will assign 
locations in the Constant Pool to octal and decimal in¬ 
tegers less than 2^8 and lcA®, respectively. A maximum 
of 100 constants of this type is permitted. 

Undefined Tags are tags referred to in the program 
that have not appeared in the tag field. SLAP will 
assign to these tags locations immediately following 
the Constant Pool. A warning will be given for all such 
references. Initially, all cells set aside for undefined 
tags will be zero. A maximum of 75 undefined tags is 
permitted. 

11. When a tag is followed immediately by a / (slash), the 
storage address (rather than the execution address) 
appears as the translation. 

12. The U field of the END pseudo-instruction may be used 
for a symbolic, decimal, or octal starting address. 

The octal translation of this address will appear in 
PAK whenever the program has been completely loaded 
into memory. 


V. PSEUDO-INSTRUCTIONS 

SETL will set the storage and execution location counters as 
specified by the contents of U and V, respectively. References to 
tags are not permitted in the U and V fields. If either field is 
blank or zero, the corresponding location counter will not be 
changed. An E appearing in the U field will equate the storage 
location counter to the current execution location counter. An S 
in the V field will equate the execution location counter to the 
current storage location counter. ( A tag ,in the tag field will 
translate as the location of the previous instruction plus one, 
not as the location specified by the SETL.) 

RSR? will add the contents of U and V to the storage and 
execution location counters, respectively. References to tags in 
the U and V fields are not permitted. 

EQLS will equate the tag appearing in the tag field to the 
contents of U. U may contain an octal or decimal integer or a 
reference to a tag. No tag defined by an EQLS may be used to 
define another tag. 



CALL. See VII, Subroutines. 


F will convert the decimal number appearing in the U field 
to a floating binary, A decimal point may appear anywhere in the 
U field. In the absence of a decimal point, the number is assumed 
to be an integer. Decimal scaling, if any, appears in the V field. 

If the scaling is negative, a minus sign must precede the scale 
factor. No sign is given for positive scale factors. The sign of 
the number appears in the low order of the operation field. 

S will convert the decimal number appearing in the U field to 
a binary number whose scaling is specified in the operation field. 

A decimal point may appear anywhere in the U field. In the absence 
of a decimal point, the number is assumed to be an integer. Decimal 
scaling, if any, appears in the V field. If the scaling is negative, 
a minus sign must precede the scale factor. No sign is given for 
positive scale factors. The sign of the number appears in the low 
order of the operation field. 

B will scale the octal number appearing in the U field as spec¬ 
ified in the operation field. 

XS3 will convert the first 6 digits of the U field (including 
blanks) into octal excess-three equivalents. 

END will terminate assembly. 


VI. WARNINGS 

The following warnings may appear to the right of the octal 
translation on the symbolic listing and are indications of possible 
errors in the line of coding in which they appear. 

• NOP - The operation is incorrect. The nearest valid machine 

instruction appears in the octal translation. 

• DEF - Reference has been made to a tag that does not appear 

in the tag field of the program. SLAP assigns a cell 
in the compiled region for each undefined tag. 

• DUP - Reference has been made to a tag that has appeared more 

than once in the tag field of the program. Any refer¬ 
ence to a duplicate tag will be given the execution 
location of the line of coding in which the tag first 
appears. 

• OCT - An octal location or constant contains a nonoctal 

character. 



• DEC - A decimal location or constant contains a nondecimal 

character. 

• EXP - The decimal scaling of a floating or stated point 

decimal number is either too large or too small* In 
either case the result is zero. 

VU* SUBROUTINES 

The CALL pseudo-instruction will generate the calling sequence 
referred to in the U address of the pseudo-instruction* For example, 
CALL SINE - will be translated as RJ SINE+2 SINE. 
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SETL 

50000B) 

50000B) 







START 

RPB 

2000 

PASS1 

BOOTSTRAP SLAP 


50000 

75 

33720 

00010 


TP 

PASS1 / 

PASS1 

TO CORE 


50001 

11 

50002 

00010 


SETL 


2500B} 







W 

RSRV 


21 

W STORAGES 


02500 




TEMP 

RSRV 


15 

TEMPORARY BUFFER 


02525 




CPT 

RSRV 


300 

CONSTANT POOL 


02544 




DTT 

RSRV 


25 

DUPLICATE TAG TABLE 


03220 




UT 

RSRV 


75 

UNDEFINED TAG TABLE 


03251 




BT 

RSRV 


340 

OCTAL TAPE BUFFER 


03364 




V/T 

RSRV 


720 

INPUT-OUTPUT BUFFER 


04110 




1BUF 

RSRV 


1025 

SORT BUFFER 

_ 

05430 




2BUF 

RSRV 


1025 

SORT BUFFER 


07431 




TT 

RSRV 


1025 

TAG TABLE BUFFER 


11432 




TL 

RSRV 


1025 

TAG LOCATION BUFFER 


13433 




DSTORE 

EQLS 

50000B ) 


DRUM BUFFER 







SETL 


108) 







PASS1 

RPV 

1024 

L + 2 

FILL TAG TABLE WITH 

50002 

00010 

75 

12000 

00012 


TP 

L-l 

TT 

LARGE ENTRIES 

50003 

00011 

11 

00010 

11432 


LA 

A 

12 

STORE OCTAL TAPE UNI¬ 

50004 

00012 

54 

32000 

00014 


TP 

A 

T174 

SERVO NUMBER IN T174 

50005 

00013 

11 

3 2 000 

01623 


ZJ 

L+3 

L + l 

IF A IS ZERO NO OCTAL 

50006 

00014 

47 

00017 

00015 


TP 

T113-2 

T113-1 

TAPE WILL BE WRITTEN 

50007 

00015 

11 

01436 

Cl 43 7 


TP 

T24+3 

T 2 4+4 

SO GIMMICK OCTAL SETUP 

50010 

00016 

11 

00264 

00265 


QJ 

L+l 

L + 2 

IF HIGH BIT IN 0 IS ONE 

50011 

00017 

44 

00020 

00021 


RA 

T171+3 

L( 200000 B) 

KILL FINAL TAPE REWINDS 

50012 

00020 

21 

01607 

02110 


LQ 

Q 

11 

SUBSTITUTE LOW ORDER 

50013 

00021 

£, 5 

31000 

0C013 


TP 

Q 

TEMP 

4 BITS IN Q INTO THE 

50014 

0002 ? 

+ " 

31000 

02525 


TP 

L(170000B) 

Q 

EF CODES THAT WRITE 

50015 

00023 

i 4. 

02111 

31000 


QS 

TEMP 

RWND5 

AND REWIND THE SYMBOLIC 

50016 

00024 

53 

02525 

02042 


OS 

TEMP 

WTP5 

OUTPUT TAPE 

50017 

00025 

53 

02525 

02041 


LQ 

TEMP 

21 

SUBSTITUTE THE LOW ORDER 

50020 

00026 

55 

02525 

00025 


TP 

L (170000B) 

Q 

4 BITS IN U OF 0 INTO 

50021 

00027 

11 

02111 

31000 


OS 

TEMP 

RDTP4 

THE EF CODES THAT READ , 

50022 

00030 

53 

02525 

02035 


OS 

TEMP 

M 8 ACK 

MOVE BACK 1 BLOCK, MOVE 

50023 

00031 

53 

02525 

02037 


QS 

TEMP 

RWND4 

BACK N BLOCKS AND REW¬ 

50024 

00032 

53 

02 52 5 

02036 


QS 

TEMP 

MBCK1 

IND THE INPUT TAPE 

50025 

00033 

53 

02525 

02040 


EF 


RDTP4 

START INPUT TAPE 

50026 

00034 

17 

00000 

02035 
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T1 

RJ 

T15 


SP 

W+l 3 


SA 

W+14 


LTL 

12 


RPB 

11 

T2 

TP 

W+l 


TP 

W+2 


EJ 

END 


RA 

T2 


RA 

T136A 


RA 

T136 

T3 

TJ 

L (180 


TP 

L {0 ) 


TV 

T149 


EF 


T 4 

RPB 

1980 


TP 

WT 


RA 

L—1 


RA 

T137 


TJ 

L ( 6 ) 


TP 

T148 


TU 

T 5+2 


EF 


T5 

RJ 

T56 


ZJ 

L+l 


TP 

A 


RA 

L-l 


SP 

T121 

T5 A 

AT 

T12 0 


RA 

L-l 


RA 

T12 8 


TJ 

T129 


. TV 

T 5+1 

T 6 

RJ 

T75 


EJ 

EQLS 


EJ 

XS3 


EJ 

W+2 


MJ 



ASSEMBLY PROGRAM ( 

RDTAPE 

36 

W+ll 

L+2 

WT 

A 

T 8 

L (11 ) 

L ( 1 ) 

L ( 1 ) 

T5 

T136 

T2 

STAPE 
L + 2 

DSTORE 
L ( 1980 ) 

L ( 1 ) 

L + 3 
T3 

T2+3 
RDTP4 
T50 
T 6 
TT 

L ( 1 ) 

15 

TL 

L { 1 ) 

L(100000B) 

T 6 

T5 

T74 

T7 

T6A 

L+2 

T1 


2- CORE ) 


PAGE 2 OF 31 


READ ONE BLOCKETTE 
MOVE SEQUENCE NUMBERS 
FROM POSITIONS 75-80 
TO 61-66 FOR OUTPUT 
STORE ONE INSTRUCTION 
IN 1980 WORD BUFFER 
TEST OPERATION FIELD FOR 
PSEUDO END INSTRUCTION 
BUMP STORE INSTRUCTION 
BUMP INSTRUCTION TALLY 
BUMP INSTRUCTION TALLY 
TEST FOR 180 INSTRUCTION 
RESET INSTRUCTION TALLY 
RESET STORE INSTRUCTION 
STOP INPUT TAPE 
STORE 180 INSTRUCTIONS 
IN DRUM BUFFER (DSTORE) 
BUMP DRUM STORE INSTR 
BUMP DRUM STORE TALLY 
TEST IF DRUM IS FULL 
SET EXIT WHEN DRUM FULL 
AND CHANGE BUMP INSTRCT 
START INPUT TAPE 
IF LOCATION FIELD HAS A 
TAG LEAVE IN ACCUMLATOR 
STORE TAG IN TT TABLE 
BUMP TAG STORE 
COMBINE STORAGE AND 
EXEC L CTRS INTO TL 
BUMP L COUNTER STORE 
BUMP TAG TALLY 
TEST FOR TOO MANY TAGS 
GIMMICK EXIT 
TEST FOR RSRV OR SETL 
TEST FOR EQLS 
TEST FOR XS-3 PSEUDO OP 
IF NEITHER CONTINUE TEST 
GO BACK TO TAPE READ 


50027 

00035 

37 

00212 

00176 

50030 

00036 

31 

02515 

00044 

50031 

00037 

32 

02516 

00000 

50032 

00040 

22 

00014 

02513 

50033 

00041 

75 

30013 

00043 

50034 

00042 

11 

02501 

04110 

50035 

00043 

11 

02502 

32000 

50036 

0 0044 

43 

02063 

00117 

50037 

00045 

21 

00042 

02112 

50040 

00046 

21 

01475 

02113 

50041 

00047 

21 

01474 

02113 

5Q042 

00050 

42 

02114 

00064 

50043 

00051 

11 

02115 

01474 

50044 

00052 

i A 

X ■W' 

0151 0 

00042 

50045 

00053 

17 

00000 

02045 

50046 

00054 

75 

33674 

00056 

50047 

00055 

11 

04110 

50000 

50050 

00056 

21 

00055. 

02116 

5 0051 

00057 

21 

01476 

02113 

50052 

00060 

42 

02117 

■0006 3 

-0053 

0 fT 0 61 

11 

01507 

00050 

50054 

0 o 06 2 

15 

00066 

0004 5 

5 0 0 5 5 

0 0 063 

17 

OOOOC 

02035 

50056 

00064 

37 

00630 

00566 

50057 

00065 

47 

00066 

00076 

50060 

00066 

11 

32000 

11432 

50061 

00067 

21 

00066 

02113 

50062 

00070 

31 

01455 

00017 

50063 

00071 

35 

01454 

13433 

50064 

00072 

21 

00071 

02113 

50065 

00073 

21 

01465 

02120 

50066 

00074 

42 

01463 

00076 

50067 

00075 

16 

00065 

00064 

50070 

00076 

37 

01043 

01040 

50071 

00077 

43 

02060 

00107 

50072 

00100 

43 

02071 

00105 

50073 

00101 

43 

02502 

00103 

50074 

00102 

45 

00000 

00035 
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RJ 

T56 


RJ 

T56 

T6A 

RP.U 

2 


RA 

T120 

T7 

RPB 

2 


TP 

W+3 


TV 

T5A 


RS 

L+l 


TN 

T7+1 


RA 

T7+1 


RA 

T130 


MJ 


T8 

EF 



RS 

T136A 


SJ 

L+l 


RJ 

T 4 


MJ 



AT 

MBACK 


EF 


PASS2 

TP 

T120 


TP 

T121 


TP 

L(10B) 


TP 

L(10B) 


TP 

L (0 ) 


TU 

T 67+1 


TV 

T 69+1 


TV 

T155 


RA 

T127 


RJ 

T210A+1 


RJ 

T37 


RJ 

T38+1 


RPV 

100 


TP 

L (0 ) 

T10 

RJ 

T27 


TP 

BLNKS 


RPV 

3 


TP 

BLNKS 


RPB 

11 
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T51 

T52 

T1 

HI) 

L+2 

BT+100 
L+2 
L (1) 

L (2 ) 

L (1) 

T1 

STAPE 
L(1079) 

L + 3 
T 4 

PASS2 

MBACK 

MBACK 

T134 

T133 

T120 

T121 

SIND 

T68+1 

T62-1 

T57-1 

T134 

SORT 

EQUALS 

T38 

L+2 

BT 

T26 

W+ll 

L+2 

W+17 

L+2 
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TEST U FIELD FOR CONSTS 
TEST V FIELD FOR CONSTS 
BUMP LOCATION COUNTERS 
GO BACK TO TAPE READ 
STORE U ADDRESS OF EQLS 
INSTR INTO BT BUFFER 
FOR TRANSLATION BETWEEN 
PASSES STORE ADDRESS 
OF THIS STORE IN TL 
TABLE NEGATIVELY 
BUMP EQUALS TALLY 
READ NEXT BLOCKETTE 
STOP INPUT TAPE 
TEST IF PROGRAM HAS 
MORE THAN 1080 WORDS 
STORE LAST BLOCK ON DRUM 
GO TO PASS 2 

COMPUTE NUMBER OF BLOCKS 
TO MOVE BACK MOVE BACK 
STORE LAST EXECUTION ADD 
STORE LAST STORAGE ADDR 
RESTORE EXECUTION COUNTR 
RESTORE STORAGE COUNTER 
CLEAR (SIND) INDICATOR 
CHANGE EXIT FOR PASS 2 
CHANGE EXIT FOR PASS 2 
CHANGE EXIT FOR PASS 2 
COMPUTE 1ST UDT ADDRESS 
SORT TAG TABLE 
TRANSLATE EQLS COMMANDS 
TEST FOR DUPLICATE TAGS 
CLEAR BT-BT+99 FOR OCTAL 
TAPE CONTROL INFORMTION 
FETCH SIX INSTRUCTIONS 
SET W+ll TO BLANKS 
SET STORAGES W+17 TO 
W+19 TO BLANKS 
BRING ONE INSTRUCTION 


50075 00103 37 00630 00571 

50076 00104 37 00630 00574 

50077 00105 75 20002 00035 

50100 00106 21 01454 02113 

50101 00107 75 30002 00111 

50102 00110 11 02503 03530 

50103 00111 16 00071 00113 

50104 00112 23 00113 02113 

50105 00113 13 00110 00000 

50106 00114 21 00110 02121 

50107 00115 21 01466 02113 

50.110 00116 45 00000 00035 

50111 00117 17 00000 02045 

50112 00120 23 01475 02122 

50113 00121 46 00122 00124 

50114 00122 37 00054 00054 

50115 00123 45 00000 00126 

50116 00124 35 02037 02037 

50117 00125 17 00000 02037 

50120 00126 11 01454 01472 

50121 00127 11 01455 01473 

50122 00130 11 02123 01454 

50123 00131 11 02123 01455 

50124 00132 11 02115 02064 

50125 00133 15 01006 01010 

50126 00134 16 01014 00706 

50127 00135 16 01516 00640 

50130 00136 21 01464 01472 

50131 00137 37 02024 01723 

50132 00140 37 00314 00277 

50133 00141 37 00316 00315 

50134 00142 75 10144 00144 

50135 00143 11 02115 03364 

50136 00144 37 00276 00270 

50137 00145 11 02100 02513 

50140 00146 75 10003 00150 

50141 00147 11 02100 02521 

50142 00150 75 30013 00152 
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TlOA 

TP 

WT+1200 

W+l 

TO W STORAGES 

50143 

00151 

11 

06370 

02501 


RA 

L-l 

L(1300000B) 

BUMP STORE COMMAND 

50144 

00152 

21 

00151 

02124 


TP 

BLNKS 

T138 

CLEAR ERROR INDICATOR 

50145 

00153 

11 

02100 

01477 


SP 

T12 0 


STORE EXECUTION ADDRESS 

50146 

00154 

31 

01454 

00000 


TP 

A 

W+l 3 

IN W+13 TEST IF EQUAL 

50147 

00155 

11 

32000 

02515 


TP 

BLNKS 

W+12 

TO STORAGE ADDRESS IF 

50150 

00156 

11 

02100 

02514 


EJ 

T121 

L+2 

SO SET W+12 BLANK IF 

50151 

00157 

43 

01455 

00161 


TP 

T121 

W+12 

NOT STORE STORAGE- W+12 

50152 

00160 

11 

01455 

02514 


SP 

W+2 

18 

TEST FOURTH POSITION 

50153 

00161 

31 

02502 

0002 2 


SP 

A 


OF OP IF NOT ZERO 

50154 

00162 

31 

32000 

00000 


2 J 

Til 

T11A 

TEST FOR PSEUDO OPERS 

50155 

00163 

47 

00164 

00171 

Til 

RJ 

T75 

T74 

TEST FOR RSRV OR SETL 

5Q156 

00164 

37 

01043 

01040 


EJ 

EQLS 

L+2 

TEST FOR EQLS 

50157 

00165 

43 

02060 

00167 


EJ 

W+2 

L+3 

TEST FOR NONE OF ABOVE 

50160 

00166 

43 

02502 

00171 


RPV 

6 

T12 

SET STORAGES W+14 - W+l9 

50161 

00167 

75 

10006 

00174 


TP 

BLNKS 

W+l 4 

TO BLANKS 

50162 

00170 

11 

02100 

02516 

T11A 

RA 

T120 

L {1) 

BUMP LOCATION COUNTER 

50163 

00171 

21 

01454 

02113 


RA 

T121 

L (1) 

BUMP LOCATION COUNTER 

50164 

00172 

21 

01455 

02113 


MJ 


OFETCH 

GO TO OPERATION LOOK UP 

50165 

00173 

45 

00000 

00327 

T12 

RJ 

T25 

T21 

STORE INSTRUCTION IN BUF 

50166 

00174 

37 

00267 

00236 


SJ 

T10 

T10+2 

TRANSLATE NEXT INSTRTION 

50167 

00175 

46 

00144 

00146 

RDTAPE 

TV 

T153 

T13 

PRESET TAPE LOAD 

50170 

00176 

16 

01514 

00204 


ERO 


A 

READ IOA INTO A 

50171 

00177 

76 

00000 

32000 


EJ 

L (1 ) 

T14 

TEST FOR PARITY ERROR 

50172 

00200 

43 

02113 

00207 


EJ 

L (2 ) 

T15-1 

TEST FOR END OF BLOCK 

50173 

00201 

43 

02121 

00211 

T12A 

EJ 

L {3) 

T15+1 

TEST FOR M0D3 ERROR 

50174 

00202 

43 

02125 

00213 


EJ 

L (4 ) 

T16 

TEST FOR END OF TAPE 

50175 

00203 

43 

02126 

00215 

T13 

ER1 


W+l 

READ ONE WORD INTO W+l 

50176 

00204 

76 

10000 

02501 

RA 

L-l 

L (1) 

BUMP TAPE LOAD COMMAND 

50177 

00205 

21 

00204 

02113 


MJ 


RDTAPE+1 

GO TO READ NEXT WORD 

50200 

00206 

45 

00000 

00177 

T14 

TV 

T12 A 

T15-1 

SET SWITCH FOR PARITY 

50201 

00207 

16 

00202 

00211 


MJ 


T13 

READ REST OF BLOCK 

50202 

00210 

45 

00000 

00204 


RJ 

L 

L + l 

ONE SHOT SWITCH 

50203 

00211 

37 

00211 

00212 

T15 

MJ 



SUCCESS EXIT 

50204 

00212 

45 

00000 

00000 

EF 


STAPE 

STOP INPUT TAPE 

50205 

00213 

17 

00000 

02045 


EF 


MBCK1 

MOVE BACK ONE BLOCK 

50206 

00214 

17 

00000 

02040 

T16 

EF 


RDTP4 

START INPUT TAPE 

50207 

00215 

17 

00000 

02035 

MJ 


RDTAPE 

READ LAST BLOCK AGAIN 

50210 

00216 

45 

00000 

00176 
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T18 

EF 


RDTP4 

START INPUT TAPE 

50211 

00217 

17 

00000 

02035 


TP 

L(119) 

TEMP+7 

SET BLOCKETTE INDEX 

50212 

00220 

11 

02127 

02534 


TV 

T154 

T19A 

PRESET STORE COMMAND 

50213 

00221 

16 

01515 

00227 

T19 

RJ 

T15 

RDTAPE 

READ ONE BLOCKETTE 

50214 

00222 

37 

00212 

00176 


SP 

W+l 3 

36 

MOVE SEQUENCE NUMBERS 

50215 

00223 

31 

02515 

00044 


SA 

W+l 4 


FROM POSITIONS 75-80 

50216 

00224 

32 

02516 

OCOOO 


LTL 

12 

W+ll 

TO 61-66 

50217 

00225 

22 

00014 

0 2 513 


RPB 

11 

L+2 

STORE ONE INSTRUCTION 

50220 

00226 

75 

30013 

00230 

T19A 

TP 

W+l 

WT+1200 

INTO CORE BUFFER 

50221 

00227 

11 

02501 

06370 


TP 

W+2 

A 

TEST OPERATION FOR 

50222 

00230 

11 

02302 

3 2000 


EJ 

END 

T20-1 

END INSTRUCTION 

50223 

00231 

43 

02063 

00234 


RA 

T19A 

L ( 11 ) 

BUMP STORE COMMAND 

50224 

00232 

21 

00227 

02112 


I J 

TEMP+7 

T1 9 

TEST FOR 120 BLOCKETTES 

50225 

00233 

41 

02534 

002 2 2 


EF 


STAPE 

STOP INPUT TAPE 

50226 

00234 

17 

00000 

02 04 3 

T20 

MJ 



EXIT 

50227 

00235 

45 

00000 

00000 

T21 

RPB 

20 

L + 2 

BLOCK TRANSFER ONE INSTR 

50230 

00236 

75 

30024 

00240 


TP 

W 

WT 

UCTION TO WT BUFFER 

50231 

00237 

11 

02500 

04110 


RA 

L-l 

L ( 20 ) 

BUMP STORE COMMAND 

50232 

00240 

21 

00237 

02130 


RA 

T13 9 

LCD 

BUMP BLOCKETTE TALLY 

50233 

00241 

21 

01500 

02113 


TJ 

L ( 6 ) 

T25 

TEST FOR FULL BLOCK 

50234 

00242 

42 

02117 

002 6 7 

T22 

TP 

L (0 ) 

T 139 

RESET BLOCKETTE INDEX 

50235 

00243 

11 

02115 

01500 


RA 

T140 

L ( 1 ) 

BUMP BLOCK COUNT 

50236 

00244 

21 

01501 

02113 


TJ 

L ( 2 0 ) 

T25 

TEST FOR 20 BLOCKS 

50237 

00245 

42 

02130 

00267 


TV 

T149 

T21 + 1 

RESET STORE COMMAND 

50240 

00246 

16 

01510 

00237 


TU 

T149 

T10A 

RESET STORE COMMAND 

50241 

00247 

15 

01510 

00151 


RS 

T140 

L ! 1 ) 

BLOCK TALLY MINUS ONE 

50242 

00250 

23 

01501 

02113 


EF 


WTP5 

START OUTPUT TAPE 

50243 

00251 

17 

00000 

02041 


TP 

L ( 5 ) 

TEMP+10 

SET BLOCKETTE INDEX 

50244 

00252 

11 

02131 

02 53 7 

T23 

RPB 

20 

L+2 

MOVE 20 WORDS TO W STOR 

50245 

00253 

75 

30024 

002 5 5 


TP 

WT 

W 

AGES FOR WRITING 

50246 

00254 

11 

04110 

02500 


RA 

L-l 

L(2400000B) 

BUMP STORE COMMAND 

50247 

002 5 5 

21 

00254 

02132 


RJ 

T113 

XS3CON 

CONVERT COMMAND TO XS-3 

50250 

00256 

37 

01440 

01407 


RPV 

20 

L + 2 

WRITE ONE BLOCK OF 

50251 

00257 

75 

10024 

00261 


EW1 


W 

SYMBOLIC OUTPUT TAPE 

50252 

00260 

77 

10000 

02500 

T24 

IJ 

TEMP + 10 

T23 

TEST FOR FULL BLOCK 

50253 

00261 

41 

02537 

002 5 3 


I J 

T140 

T23-1 

TEST BLOCK COUNT 

50254 

00262 

41 

01501 

00252 


EF 


STAPE 

STOP OUTPUT TAPE 

50255 

00263 

17 

00000 

02045 


TU 

T25 

T23 + 1 

RESET LOAD COMMAND 

50256 

00264 

15 

00267 

00254 
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RJ 


SN 

T25 

MJ 

T26 

RPB 


TP 


RA 


RA 


TJ 


TP 

T27 

MJ 

EQUALS 

RS 


SJ 

T28 

RA 


RA 

T29 

TP 


SJ 


SN 


TU 


RPB 


TP 


RJ 

T30 

TP 


I J 

T37 

MJ 

T38 

TP 


EJ 


EJ 

T38A 

TU 


RA 


MJ 

T39 

TP 


RA 


RA 


MJ 

OFETCH 

LQ 


QT 


TJ 


TU 


T102A 

L 

WT 

1320 
DSTORE 
L-l 
T141 
L (9 ) 

T151 

T130 

T37 

T30 

T29 

TL-1 

L+l 

A 

A 

2 

T 69 
A 

T130 

TT 

PASS 1 
TT + 1 
L-l 
L-2 

A 

L-l 
T62 A 

W+2 

OMASK 

OTABLE+49 

L-l 


T102 


L+2 

WT+1200 
L1320 
Lm 
L + 2 
T10 

L(l) 

L + l 
L (1) 

L(100000B) 
A 

T28 

15 

L+2 

L+2 

W+3 

T 67 

TL-1 

T28 

A 

T39 

T38 

L(1000008) 

T38 

DTT 

LCD 

LC100000B) 

T38A 

Q + 33 

TEMP 

T39A 

T39B 


2- CORE ) PAGE 6 OF 31 


STORE XS3 WORDS ON DRUM 
SET ACCUMULATOR MINUS 
EXIT 

BRING 120 INSTRUCTIONS 
FROM DRUM TO WT BUFFER 
BUMP FETCH INSTRUCTION 
BUMP FETCH TALLY 
TEST IF DRUM EMPTY 
CHANGE FETCH INSTRUCTION 
EXIT TO PASS 2 
TEST IF EQUALS INSTRUCT 
IONS ARE PRESENT 
IF SO TEST TL TABLE FOR 
NEGATIVE NUMBERS IF 
SO THE V ADDRESS OF 
THIS NEGATIVE NUMBER 
WILL CONTAIN THE ADD¬ 
RESS IN THE BT BUFFER 
CONTAING THE CONTENTS 
OF THE U FIELD OF AN 
EQUALS COMMAND 
TRANSLATE THIS U FIELD 
AND STORE IN TL TABLE 
EXIT 

TEST TAG TABLE FOR 
DUPLICATE ENTRIES 
STORE ALL DUPLICATES 
IN DTT TABLE BUMP 
DUPLICATE TAG LOOKUP 
BY ONE FOR EACH ENTRY 
IN DTT TABLE THIS 
TEST ENDS WHEN A DUMMY 
FILL ENTRY IS FOUND IN 
THE TT TABLE 
MASK OFF OPERATION INTO 
TEMP AND ACCUMULATOR 
TEST IF GTR THAN RA 
YES SET TJ COMMAND 


50257 

00265 

37 

01336 

50260 

00266 

33 

00266 

50261 

00267 

45 

04110 

50262 

00270 

75 

32450 

50263 

00271 

11 

50000 

50264 

00272 

21 

00271 

50265 

00273 

21 

01502 

50266 

00274 

42 

02133 

50267 

00275 

11 

01512 

50270 

00276 

45 

00000 

50271 

00277 

23 

01466 

50272 

00300 

46 

00314 

50273 

00301 

21 

00312 

50274 

00302 

21 

00303 

50275 

00303 

11 

13432 

50276 

00304 

46 

00305 

50277 

00305 

33 

32000 

50300 

00306 

15 

32000 

50301 

00307 

75 

30002 

50302 

00310 

11 

00000 

50303 

00311 

37 

01013 

50304 

00312 

11 

32000 

50305 

00313 

41 

01466 

50306 

00314 

45 

00000 

50307 

00315 

11 

11432 

50310 

00316 

43 

00010 

50311 

00317 

43 

11433 

50312 

00320 

15 

00317 

50313 

00321 

21 

00317 

50314 

00322 

45 

00000 

50315 

00323 

11 

32000 

50316 

00324 

21 

00323 

50317 

00325 

21 

00711 

50320 

00326 

45 

00000 

50321 

00327 

55 

02502 

50322 

00330 

51 

02070 

50323 

00331 

42 

00443 

50324 

00" 3 2 

15 

003 31 


01330 
00000 
00000 
00272 
06370 
02055 
02113 
00276 
00144 
00000 
02113 
00301 
02113 
02120 
32000 
00301 
00017 
00310 
00311 
02503 
01005 
13432 
00301 
00000 
32000 
00000 
00323 
00315 
02120 
00315 
03220 
02113 
02120 
00320 
31041 
02525 
00336 
00 344 
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9A 


9B 


ABLE 


TJ 

OTABLE+63 

T39B-1 

TU 

L-l 

T39B 

MJ 

OTABLE 

T39B-1 

TU 

L-l 

T39B 

T J 

OTABLE+14 

T39B-1 

TU 

L-l 

T39B 

TJ 

OTABLE+27 

T39B-1 

TU 

L-l 

T39B 

RPU 

77 

L + 2 

TJ 

OTABLE 

L + l 

SN 

Q 

15 

SA 

T142 


TU 

T39B 

T1 5 2 

AT 

T152 

L+l 

TP 

OTABLE 

Q 

QT 

OMASK 

A 

SS 

TEMP 


ZJ 

L + l 

L+2 

TP 

NOP 

W+17 

TV 

Q 

OTABLE-1 

SP 

Q 

21 

LT 


W + 14 

MJ 


FILL 

T41 


30300B ) 

T41 

01 

21300B ) 

T40 

02 

46635B ) 

T41 

02 

50000B ) 

T47 

02 

51400B) 

T47 

02 

62437B ) 

T 46 

02 

62627B ) 

T41 

02 

76737B ) 

T175 

02 

77073B) 

T41 

03 

03117B) 

T41 

03 

044438 ) 

T41 

03 

05000B ) 

T160 

03 

05476B ) 

T41 

03 

07177B) 

T41 


PAGE 7 OF 

TEST IF GTR THAN TJ 
YES SET TJ COMMAND 
EXIT TO TABLE LOOKUP 
SET TJ COMMAND 
TEST IF GTR THAN EW 
YES SET TJ COMMAND 
TEST IF GTR THAN LA 
YES SET TJ COMMAND 
LOOK UP MNEUMONIC OPERAT 
ION IN OTABLE AND STORE 
ITS OCTAL EQUIVALENT 
IN W+14 IF EXACT ENTRY 
IS NOT IN TABLE STORE 
NEAREST OCTAL EQUIV¬ 
ALENT AND STORE NOP 
WARNING IN W+17 THEN 
EXIT AS SPECIFIED BY 
V ADDRESS OF CORRESP¬ 
ONDING ENTRY IN OTABLE 
THIS ADDRESS SPECIFIES 
WHICH TRANSLATION ROU¬ 
TINE IS TO BE USED 
EXIT AS DESCRIBED ABOVE 
BLANK OPERATION 
ZERO OPERATION 
OCTAL OPERATION 
AT 

B- OCTAL CONSTANT 
B9 OCTAL CONST 
CALL SUBROUTINE 
CC 

DUMP (BOSS) 

DV 

EF 

EJ 

END 

ER 

EW 


31 

50325 

00333 

42 

00461 

.00343 

50326 

00334 

15 

00333 

00344 

50327 

00335 

45 

00362 

00343 

50330 

00336 

15 

00335 

00344 

50331 

00337 

42 

00400 

00343 

50332 

00340 

15 

00337 

00344 

50333 

00341 

42 

00415 

00343 

50334 

00342 

15 

00341 

00344 

50335 

00343 

75 

20115 

00345 

50336 

00344 

42 

00362 

00345 

50337 

00345 

33 

31000 

00017 

50340 

00346 

32 

01503 

00000 

50341 

00347 

15 

00344 

01513 

50342 

00350 

35 

01513 

00351 

50343 

00351 

11 

00362 

31000 

50344 

00352 

51 

02070 

3 2 0 0 Q 

50345 

00353 

3 4- 

02525 

00 000 

50346 

00354 

47 

003 5 5 

00356 

50347 

00355 

11 

02046 

02521 

5 03 50 

00356 

16 

31000 

00361 

50351 

00357 

31 

31000 

0002 5 

50352 

00360 

2 2 

00000 

02516 

50353 

00361 

45 

00000 

30000 

50354 

00362 

00 

00000 

00504 

50355 

00363 

00 

30300 

0 C 3 0 4 

50356 

00364 

01 

21300 

00500 

50357 

00365 

02 

46635 

005 04 

50360 

00366 

02 

50000 

00545 

50361 

00367 

02 

51400 

00545 

50362 

00370 

02 

62437 

0053 6 

50363 

00371 

02 

62627 

00504 

50364 

00372 

02 

76737 

01624 

50365 

00373 

02 

77073 

00504 

50366 

00374 

03 

03117 

00504 

50367 

00375 

03 

04443 

00504 

50370 

00376 

03 

05000 

01520 

50371 

00377 

03 

05476 

00504 

50372 

00400 

03 

07177 

00504 
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03 

10000B) 

T91 + 1 

F- FLOATING DECIMAL 

03 

12464B ) 

T41 

FA 


03 

12767B) 

T41 

FD 


03 

13402B ) 

T41 

FI 


03 

14766B) 

T 41 

FM 


03 

15201B) 

T41 

FP 


03 

15405B) 

T41 

FR 


03 

16565B ) 

T41 

FS 


03 

44441B) 

T41 

IJ. 


03 

45037B) 

T178+2 

IN 

(BOSS) 

03 

45214B) 

T41 

IP 


04 

40044B) 

T41 

J 

{ BOSS) 

04 

60046B) 

T41 

L 

(BOSS) 

04 

62454B) 

T41 

LA 


04 

65355B ) 

T41 

LQ 


04 

66622B) 

T41 

LT 


04 

70047B) 

T41 

M 

(BOSS) 

04 

72472B) 

T41 

MA 


04 

74445B) 

T41 

MJ 


04 

75137B ) 

T 175 

MOVE 

(BOSS) 

04 

75271B) 

T41 

MP 


04 

76556B ) 

T41 

MS 


05 

05204B5 

T41 

NP 


05 

13137B) 

T180+2 

OFF 

(BOSS) 

05 

15237B) 

T179+1 

OPER 

(BOSS) 

05 

16737B) 

T175 

OUT 

(BOSS) 

05 

20052B) 

T41 

P 

(BOSS) 

05 

25461B) 

T41 

PR 


05 

26557B) 

T41 

PS 


05 

26763B) 

T41 

PU 


05 

32452B) 

T41 

QA 


05 

34444B) 

T41 

QJ 


05 

36553B) 

T41 

QS 


05 

36651B) 

T41 

QT 


05 

40054B) 

T41 

B 

(BOSS) 

05 

4242IB ) 

T41 

RA 


05 

44437B) 

T 41 

RJ 


05 

45275B) 

T41 

RP 



50373 00401 

50374 00402 

50375 00403 

50376 00404 

50377 00405 

50400 00406 

50401 00407 

50402 00410 

50403 00411 

50404 00412 

50405 00413 
5Q406 00414 
50407 00415 

50410 00416 

50411 00417 

50412 00420 

50413 00421 

50414 00422 

50415 00423 

50416 00424 

50417 00425 

50420 00426 

50421 00427 

50422 00430 

50423 00431 

50424 00432 

50425 00433 

50426 00434 

50427 00435 

50430 00436 

50431 00437 

50432 00440 

50433 00441 

50434 00442 

50435 00443 

50436 00444 

50437 00445 
50440 00446 


03 

10000 

01172 

03 

12464 

00504 

03 

12767 

00504 

03 

13402 

00504 

03 

14766 

00504 

03 

15201 

00504 

03 

15405 

00504 

03 

16565 

00504 

03 

44441 

00504 

03 

45037 

01645 

03 

45214 

00504 

04 

40044 

00504 

04 

60046 

00504 

04 

62454 

00504 

04 

65355 

00504 

04 

66622 

00504 

04 

70047 

00504 

04 

72472 

00504 

04 

74445 

00504 

04 

75137 

01624 

04 

75271 

00504 

04 

76556 

00504 

05 

05204 

00504 

05 

13137 

01655 

05 

15237 

01650 

05 

16737 

01624 

05 

20052 

00504 

05 

25461 

00504 

05 

26557 

00504 

05 

26763 

00504 

05 

32452 

00504 

05 

34444 

00504 

05 

36553 

00504 

05 

3 6651 

00504 

05 

40054 

00504 

05 

42421 

00504 

05 

44437 

00504 

05 

45275 

00504 
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T40 

T41 

T42 

T 43 
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05 

46523B) 

T41 

05 

47137B) 

T175 

06 

50000B } 

T99-1 

06 

51400B) 

T99-1 

06 

52432B) 

T41 

06 

53174B) 

T41 

06 

54446B) 

T41 

06 

55033B ) 

T41 

06 

55231B ) 

T41 

06 

56534B) 

T41 

06 

56636B) 

T41 

06 

64442B) 

T41 

06 

64712B ) 

T41 

06 

65013B) 

T41 

06 

6521IB ) 

T41 

06 

66715B) 

T41 

06 

67016B) 

T41 

06 

75203B) 

T41 

07 

10071B) 

T41 

07 

20072B) 

T41 

07 

26500B) 

T49A 

07 

30073B) 

T41 

07 

40074B) 

T41 

07 

44447B) 

T41 

07 

77747B) 

T41 

TP 

W+2 

Q 

RJ 

T81 

T 8 0+1 

TP 

BLNKS 

T138 

TP 

A 

W+14 

RJ 

T 69 

T 67 

TP 

T138 

W+l 8 

TP 

BLNKS 

T138 

TP 

A 

W+l 5 

RJ 

L 

L + l 

RJ 

T 69 

T68 

TP 

T138 

W+19 

TP 

A 

W+16 

RJ 

L 

L+l 


RS 

REWIND (BOSS) 

STATED POINT 

STATED POINT 

SA 

SF 

SJ 

SN 

SP 

SS 

ST 

TJ 

TM 

TN 

TP 

TU 

TV 

UP 

W (BOSS) 

X (BOSS) 

XS3 

Y (BOSS) 

Z (BOSS) 

ZJ 

illegal op 

CONVERT OCTAL OPERATION 
TO BINARY AND STORE IN 
W+14 CLEAR ERROR 
INDICATOR 

TRANSLATE U FIELD TO 
BINARY AND STORE IN W 
+15 STORE ERROR INDIC¬ 
ATOR IN W+l8 AND CLEAR 
ONE SHOT SWITCH 
TRANSLATE V FIELD AND 
STORE IN W+l6 STORE 
ERROR INDICATOR IN W+l9 
ONE SHOT SWITCH 


50441 

00447 

05 

46523 

00504 

50442 

00450 

05 

47137 

01624 

50443 

00451 

06 

50000 

01262 

50444 

00452 

06 

51400 

01262 

50445 

00453 

06 

52432 

00504 

50446 

00454 

06 

53174 

00504 

50447 

00455 

06 

54446 

00504 

50450 

00456 

06 

55033 

00504 

50451 

00457 

06 

55231 

00504 

50452 

00460 

06 

56534 

0050 4 

50453 

00461 

06 

56636 

00504 

5Q454 

00462 

06 

64442 

005C4 

50455 

00463 

06 

64712 

005 04 

50456 

00464 

06 

65013 

00504 

50457 

00465 

06 

65211 

00504 

50460 

00466 

06 

66715 

00504 

50461 

00467 

06 

67016 

00504 

50462 

00470 

06 

75203 

00504 

50463 

00471 

07 

10071 

00504 

50464 

00472 

07 

20072 

00504 

50465 

00473 

07 

26500 

00563 

50466 

00474 

07 

30073 

00504 

50467 

00475 

07 

40074 

00504 

50470 

00476 

07 

44447 

00504 

50471 

00477 

07 

77747 

00504 

50472 

00500 

11 

02502 

31000 

50473 

00501 

37 

01106 

01067 

50474 

00502 

11 

02100 

01477 

50475 

00503 

11 

32000 

02516 

50476 

00504 

37 

01013 

01005 

50477 

00505 

11 

01477 

02522 

50500 

00506 

11 

02100 

01477 

50501 

00507 

11 

32000 

02517 

50502 

00510 

37 

00510 

00511 

50503 

00511 

37 

01013 

01007 

50504 

00512 

11 

01477 

02523 

50505 

00513 

11 

32000 

02520 

50506 

00514 

37 

00514 

00515 
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LQ 

W+2 

Q+l 8 

TEST THIRD POSITION OF 

50507 

00515 

55 

02502 

31022 


QT 

L(77B) 

A 

OPERATION FIELD FOR ONE' 

50510 

00516 

51 

02134 

32000 


ZJ 

L+l 

T12 

OF THE FOLLOWING CHAR¬ 

50511 

00517 

47 

00520 

00174 


TJ 

L {12B) 

T45 

ACTERS IF BLANK EXIT 

50512 

00520 

42 

02135 

00532 


EJ 

L(54B) 

T 44+1 

R 

50513 

00521 

43 

02136 

00530 


EJ 

LC67B) 

T 44 

U 

50514 

00522 

43 

02137 

00527 


EJ 

L(70B) 

T 44+1 

V 

50515 

00523 

43 

02140 

00530 


EJ 

L ( 25B ) 

T 44-1 

B 

50516 

00524 

43 

02141 

00526 


MJ 


T12 

JUMP TO STORE 

50517 

00525 

45 

00000 

00174 


RA 

W+l 5 

L <10000B) 

BUMP U BY 10000 

50520 

00526 

21 

02517 

02142 

T 44 

RA 

W+l 5 

L{lOOOOB) 

BUMP U BY 10000 

50521 

00527 

21 

02517 

02142 


RA 

W+l 5 

L(IOOOOB) 

BUMP U BY 10000 

50.522 

00530 

21 

02517 

02142 


MJ 


T12 

JUMP TO STORE 

50523 

00531 

45 

00000 

00174 

T45 

SS 

L (3 ) 

12 

IF OCTAL SUBTRACT 3 

50524 

00532 

34 

02125 

00014 


SJ 

T12 

L + l 

IF MINUS JUMP TO STORE 

50525 

00533 

46 

00174 

00534 


AT 

W+l 5 

W+l 5 

ADD DIGIT TO HIGH U 

50526 

00534 

35 

02517 

02517 


MJ 


T12 

JUMP TO STORE 

50527 

00535 

45 

00000 

00174 

T 46 

RJ 

T 69 

T67 

FOR CALL LOOK UP U 

50530 

00536 

37 

01013 

01005 


TP 

A 

TEMP+9 

FIELD IN TAG TABLE AND 

50531 

00537 

11 

32000 

02536 


SA 

L ( 2 ) 


GENERATE RJ SUBR+2 

50532 

00540 

32 

02121 

00000 


RJ 

T42 

T41 + 1 

SUBR IN BINARY STORE 

50533 

00541 

37 

00510 

00505 


SP 

TEMP+9 


IN W+14 W+l5 W+16 FOR 

50534 

00542 

31 

02536 

00000 


RJ 

T43 

T 42+2 

OUTPUT 

50535 

00543 

37 

00514 

00512 


MJ 


T12 

JUMP TO STORE 

50536 

00544 

45 

00000 

00174 

T47 

TP 

W+3 

Q 

FOR BINARY CONSTANTS 

50537 

00545 

11 

02503 

31000 


RJ 

T81 

T80+1 

CONVERT FIRST HALF OF U 

50540 

00546 

37 

01106 

01067 


TP 

W+4 

Q 

CONVERT 2ND HALF OF U 

50541 

00547 

11 

02504 

31000 


RJ 

T81 

T80+2 

AND COMBINE WITH FIRST 

50542 

00550 

37 

01106 

01070 


TP 

A 

TEMP+6 

STORE IN TEMP+6 

50543 

00551 

11 

32000 

02533 


TP 

W+2 

Q 

CONVERT THE SECOND AND 

50544 

00552 

11 

02502 

31000 

T48 

LQ 

Q 

6 

THIRD DIGITS OF THE 

50545 

00553 

55 

31000 

00006 


RJ 

T83 

T82 

OPERATION TO BINARY 

50546 

00554 

37 

01126 

01107 


TV 

A 

L+l 

AND STORE IN SHIFT INST 

50547 

005 55 

16 

32000 

00556 


SP 

TEMP+6 


SCALE BINARY CONSTANT 

50550 

00556 

31 

02533 

00000 


RJ 

T 87 

T86 

AND STORE IN W+14- W+16 

50551 

00557 

37 

01143 

01140 


TP 

L (0) 

W+17 

CLEAR WARNING 

50552 

00560 

11 

02115 

02521 


TP 

T138 

W+18 

STORE ERROR INDICATOR 

50553 

00561 

11 

01477 

02522 

T49 

MJ 


T12 

JUMP TO STORE 

50554 

00562 

45 

00000 

00174 
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T49A 

T 5 0 

T51 

T52 

T53 

T54 


T55 

T55A 


SP 

W+3 


RJ 

T 87 

T 8 6 

MJ 


T12 

TU 

T150 

T 5 3 

TU 

L+l 

T 54 

MJ 

L (0 ) 

T53 

TU 

T15 3 

T 5 3 

TU 

L + l 

T 54 

MJ 

W+4 

T53 

TU 

T154 

T53 

TU 

T15 5 

T 54 

TP 


Q 

QT 

PSTOP 

A 

ZJ 

L + l 

T 5 6 

SP 

Q 

36 

SA 



TP 

LPCT 

TEMP+9 

LTL 

6 

Q 

QJ 

L+l 

L+6 

QJ 

L+l 

T56+1 

QJ 

T55 

L + l 

QJ 

T55A 

L + l 

QJ 

L + l 

T 5 5 

QJ 

T56 

T 5 5 

QJ 

T55 

L + l 

QJ 

L+4 

L + l 

QJ 

T55 

L+l 

QJ 

L+l 

T56 

QJ 

T55 

T 56 

QJ 

L+l 

T 5 5 

QJ 

L+l 

T 5 5 

QJ 

T57 

T 5 5 

LQ 

TEMP+9 

1 

QJ 

T 54+2 

T 56 

QJ 

T55 

L + l 

QJ 

T55 

L + l 

TP 

L ( 1 ) 

SIND 

MJ 




FOR PSEUDO XS-3 OPERATON 
BREAK FIRST HALF OF U 
INTO W+14 W+15 AND W+16 
SET UP T53 AND T54 
TO TEST IF A TAG IS 
IN THE TAG FIELD 
SET UP T53 AND T54 
TO DETERMINE THE CONT¬ 
ENTS OF U 

SET UP T53 AND T54 
TO TEST V FIELD 
TEST IF FIELD CONTAINS 
NON-NUMERIC CHARACTERS 
IF NOT EXIT IF SO PLACE 
ENTIRE FIELD IN A LEFT 
AND A RIGHT 
STORE LOOP COUNTER 
STORE 6 DIGITS IN Q 
BEGIN TESTING FIELD FROM 
THE LEFT UNTIL ONE OF 
THE FOLLOWING SPECIAL 
CHARACTERS IS FOUND 
+ - ( ) OR BLANK THEN 

EXIT AT THIS POINT 
THE ACCUMULATOR WILL 
APPEAR AS FOLLOWS (XS3 ) 
+123 ABCDEF 
-123 ABCDEF 
(1234B) L 
(123) L 

) 1234B 

5 12345671 

TEST IF 12 CHARACTERS 
HAVE BEEN TESTED 
IF A / 64 CHARACTER IS 
SET INDICATOR (SIND) 

TO ONE 
TEST EXIT 


50555 00563 31 02503 00000 

50556 00564 37 01143 01140 

50557 00565 45 00000 00174 

50560 00566 15 01511 00576 

50561 00567 15 00570 00602 

50562 00570 45 02115 00576 

50563 00571 15 01514 00576 

50564 00572 15 00573 00602 

50565 00573 45 02504 00576 

50566 00574 15 01515 00576 

50567 00575 15 01516 00602 

5Q570 00576 11 00000 31000 

50571 00577 51 02101 32000 

50572 00600 47 00601 00630 

50573 00601 31 31000 00044 

50574 00602 32 00000 00000 

50575 00603 11 02072 02536 

50576 00604 22 00006 31000 

50577 00605 44 00606 00613 

50600 00606 44 00607 00631 

50601 00607 44 00623 00610 

50602 00610 44 00625 00611 

50603 00611 44 00612 00623 

50604 00612 44 00630 00623 

50605 00613 44 00623 00614 

50606 00614 44 00620 00615 

50607 00615 44 00623 00616 

50610 00616 44 00617 00630 

50611 00617 44 00623 00630 

50612 00620 44 00621 00623 

50613 00621 44 00622 00623 

50614 00622 44 00641 00623 

50615 00623 55 02536 00001 

50616 00624 44 00604 00630 

50617 00625 44 00623 00626 

50620 00626 44 00623 00627 

50621 00627 11 02113 02064 

50622 00630 45 00000 00000 


T56 
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T57 


T58 


CPOOL 


T5 8B 


QJ 

T55 

L+l 

QJ 

T55 

L+l 

QJ 

L+l 

T55 

QJ 

L + l 

T55 

TU 

T53 

L + l 

SP 

TEMP+10 


RJ 

T81 

T80 

MJ 


T56 

LTL 

6 

TEMP+5 

LTR 


TEMP+6 

TP 

BTST 

Q 

QT 

TEMP+5 

A 

ZJ 

T58 

L + l 

QT 

TEMP+6 

A 

ZJ 

T58 

L + l 

TP 

TEMP+5 

Q 

RJ 

T83 

T82 

TP 

TEMP+6 

Q 

RJ 

T83 

T82+1 

MJ 


CPOOL 

TP 

TEMP+5 

Q 

RJ 

T81 

T80+1 

TP 

TEMP+6 

Q 

QJ 

CPOOL 

L+l 

TP 

TEMP+6 

Q 

RJ 

T81 

T80+2 

SP 

TEMP 


TU 

T122 

L+l 

RP 


L+2 

EJ 

CPT 

T59 

TP 

A 

CPT 

TU 

T53 

L+2 

RPB 

2 

L+2 

TP 

TEMP+10 

CPT+100 

RA 

T58B 

l c i y 

RA 

L-2 

L (2 ) 

RA 

T127 

L (1) 

RA 

T122 

L(lOOOOOB) 


PAGE 12 OF 

IF ) IS THE 1ST SPECIAL 
CHARACTER FOUND THE 
DIGITS TO THE LEFT ARE 
ASSUMED TO BE A DECIMAL 
NUMBER UNLESS THE ) IS 
PRECEDED BY A B THIS 
NUMBER IS CONVERTED TO 
BINARY AND LEFT IN A 
A LEFT PARENTHESIS WAS 
THE FIRST SPECIAL 
CHARACTER FOUND THE 
INFORMATION TO THE 
RIGHT OF THIS CHARACTER 
IS ASSUMED TO BE EITHER 
A DECIMAL OR OCTAL 
CONSTANT AND IS TO BE 
PLACED IN THE CONSTANT 
POOL IF A B IS PRESENT 
CONVERT AS A OCTAL 
INTEGER IF NOT CONVERT 
AS A DECIMAL INTEGER 
IN EITHER CASE LEAVE 
RESULT IN THE ACCUM 
ULATOR AND GO TO CPOOL 
CPOOL TO FIND THE LOC¬ 
ATION FOR THIS CONSTANT 
STORE TEMP IN ACCUM 
TEST IF CONSTANT HAS 
ALREADY BEEN ENTERED 
INTO THE CONSTANT POOL 
IF NOT STORE IN POOL 
SET UP STORE 
AND STORE SYMBOLIC 
CONSTANT FOR LATER 
PRINTOUT BUMP STORE 
INSTRUCTIONS AND CONS¬ 
TANT TALLY IF CONSTANT 
POOL IS FILLED ALTER 


31 

50623 

00631 

44 

00623 

00632 

50624 

00632 

44 

00623 

00633 

50625 

00633 

44 

00634 

00623 

50626 

00634 

44 

00635 

00623 

50627 

00635 

15 

00576 

00636 

50630 

00636 

31 

02537 

00000 

50631 

00637 

37 

01106 

01066 

50632 

00640 

45 

00000 

00630 

50633 

00641 

22 

00006 

02532 

50634 

00642 

22 

10000 

02533 

50635 

00643 

11 

02073 

31000 

50636 

00644 

51 

02532 

32000 

50637 

00645 

47 

00655 

00646 

50640 

00646 

51 

02533 

32000 

50641 

00647 

47 

00655 

00650 

50642 

00650 

11 

02532 

31000 

50643 

00651 

37 

01126 

01107 

50644 

00652 

11 

02533 

31000 

50645 

00653 

37 

01126 

OHIO 

50646 

00654 

45 

00000 

00663 

50647 

00655 

11 

02532 

31000 

50650 

00656 

37 

01106 

01067 

50651 

00657 

11 

02533 

31000 

50652 

00660 

44 

00663 

00661 

50653 

00661 

11 

02533 

31000 

506 54 

00662 

37 

01106 

01070 

50655 

00663 

31 

02525 

00000 

50656 

00664 

15 

01456 

0066 5 

50657 

00665 

75 

00000 

00667 

50660 

00666 

43 

02544 

00701 

50661 

00667 

11 

32000 

02544 

50662 

00670 

15 

00576 

00672 

50663 

00671 

75 

30002 

00673 

50664 

00672 

11 

02537 

02710 

50665 

00673 

21 

00667 

02113 

50666 

00674 

21 

00672 

02121 

50667 

00675 

21 

01464 

02113 

50670 

006 76 

21 

01456 

02120 
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TJ 

T123 

L+2 


TV 

CPOOL+3 

CPOOL+2 

T 5 9 

SP 

T122 



LTL 

21 

A 


SS 

Q 



SS 

L (1 ) 



SA 

T134 



MJ 


T56 

T62 

LT 


TEMP 


LQ 

A 


T6 2 A 

RPU 


L+4 


EJ 

DTT 

L + l 


TP 

A 

G 


TP 

DUP 

T 13 8 


EJ 

L(46B ) 

T63B-3 


EJ 

L(24B ) 

T63A1 


EJ 

L ( 53B ! 

T63A1+2 


EJ 

L(31344646B) 

T63A1-2 


TP 

T63B+1 

T63+2 


TV 

K 

T63 + 2 


TU 

T63B+2 

T63A-2 


TU 

T63A-2 

T63B 

T63 

IJ 

T 63+2 

L + l 


TJ 

T63B+1 

T 6 3 A 


SP 

L(100000B) 



AT 

T63B 

L + 2 


SP 

Q 



SS 

TT 



SJ 

T 63 

T63-1 

T63A 

TU 

T63B 

L + 2 


TP 

Q 

A 


EJ 

FILL 

L+3 


TP 

DEF 

T138 


MJ 


UNDTAG 


PA 

T63B 

T63B+3 


TU 

A 

L + l 


TP 

FILL 

Q 


SP 

SIND 



REPEAT EXIT SO THAT ALL 
NEW CONSTANTS WILL BE 
IGNORED COMPUTE 
EXECUTION LOCATION OF 
CONSTANT IN QUESTION 
AND LEAVE THIS LOCATION 
IN THE ACCUMULATOR 
EXIT CHANGED FOR PASS 2 
SAVE INCREMENT IN TEMP 
STORE ENTRY IN Q AND A 
TEST IF THIS TAG IS IN 
DUPLICATE TAG TABLE 
RELOAD Q WITH TAG 
STORE DUP IN ERROR IND 
TEST FOR L 
TEST FOR A 
TEST FOR Q 
TEST FOR FILL 
THIS ROUTINE WILL LOOK 
UP THE TAG IN Q IN THE 
TAG TABLE IF AN EQUAL¬ 
ITY OCCURS THE LOCATION 
ASSOCIATED WITH THAT 
TAG WILL BE LEFT IN THE 
ACCUMULATOR IF NO 
EQUALITY OCCURS A DEF 
WARNING WILL BE STORED 
IN THE ERROR INDICATOR 
AND CONTROL SENT TO UND 
TAG TO STORE THIS TAG 
IN THE UNDEFINED TAG 
TABLE IF NOT ALREADY 
THERE AND ASSIGN IT AN 
ADDRESS INCREMENTS AND 
DECREMENTS ARE IGNORED 
FOR ALL UNDEFINED TAGS 
STORE LOCATION IN Q 
TEST STORAGE INDICATOR 


50671 

00677 

42 

01457 

00701 

50672 

00700 

16 

00666 

00665 

50673 

00701 

31 

01456 

00000 

50674 

00702 

22 

00025 

32000 

50675 

00703 

34 

31000 

00000 

50676 

00704 

34 

02113 

OOOOO 

50677 

00705 

32 

01472 

00000 

50700 

00706 

45 

00000 

00630 

50701 

00707 

22 

00000 

02525 

50702 

00710 

55 

32000 

00000 

50703 

00711 

75 

20000 

00715 

5Q704 

00712 

43 

03220 

00713 

50705 

00713 

11 

32000 

31000 

50706 

00714 

11 

02053 

01477 

50707 

00715 

43 

02143 

00760 

50710 

00716 

43 

02130 

00754 

50711 

00717 

43 

02144 

00756 

50712 

00720 

43 

02145 

00752 

50713 

00721 

11 

00764 

00727 

50714 

00722 

16 

00767 

00727 

50715 

00723 

15 

00765 

00732 

50716 

00724 

15 

00732 

00763 

50717 

00725 

41 

00727 

0072 6 

50720 

00726 

42 

00764 

00734 

50721 

00727 

31 

02120 

00000 

50722 

00730 

35 

00763 

00732 

50723 

00731 

31 

31000 

00000 

50724 

00732 

34 

11432 

00000 

50725 

00733 

46 

00725 

00724 

50726 

00734 

15 

00763 

00736 

50727 

00735 

11 

31000 

32000 

50730 

00736 

43 

30000 

00741 

50731 

00737 

11 

02051 

01477 

50732 

00740 

45 

00000 

01017 

50733 

00741 

21 

00763 

00766 

50734 

00742 

15 

32000 

00743 

50735 

00743 

11 

30000 

31000 

50736 

00744 

31 

02064 

00000 
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ZJ 

L+l 

L+3 


TP 

L {0 ) 

SIND 


LQ 

Q 

21 


QT 

L (77777B) 

TEMP+3 


MJ 


T 64 


TP 

L( 300006} 

TEMP+3 


MJ 


T 64 

T63A1 

TP 

L (32000B) 

TEMP+3 


MJ 


T 64 


TP 

U31000B) 

TEMP+3 


MJ 


T 64 


SP 

T120 



ST 

LQ ) 

TEMP+3 


MJ 


T 64 

T63B 

SS 

FILL 



SP 

L(IOOOOOB) 




TT 




1025 


K 

B 



T64 

TP 

TEMP 

Q 


LO 

Q 

A+6 


ZJ 

L+l 

T 66+1 


QT 

L(77B) 

A 

T65 

EJ 

L(64B) 

T64+1 


EJ 

L (2 ) 

T 66-2 


RJ 

T83 

T82 


MJ 


T 66 


RJ 

T83 

T82 


TN 

A 

A 

T66 

AT 

TEMP+3 

TEMP+3 


SP 

TEMP+3 



MJ 



T 67 ' 

RJ 

T56 

T51 


MJ 

L+3 

L+2 

T68 

RJ 

T56 

T52 


ZJ 

T69 

T69+1 


RJ 

T67-1 

T62 


SP 

A 



FOR ZERO 
CLEAR INDICATOR 
SHIFT Q 21 FOR STORAGE 
STORE LOCATION IN TEMP+3 
EXIT TO INCREMENT TEST 
STORE 30000 FOR FILL 
EXIT TO INCREMENT TEST 
STORE 32000 FOR A 
EXIT TO INCREMENT TEST 
STORE 31000 FOR Q 
EXIT TO INCREMENT TEST 
STORE L COUNTER MINUS 
ONE INTO TEMP +3 
EXIT TO INCREMENT TEST 
DUMMY TEST COMMAND 
END OF LOOKUP LOOP TEST 
ADDRESS OF FIRST TAG 
CELLS BETWEEN TT AND TL 
TABLE LOOKUP COUNT 
STORE INCREMENT IN 0 
AND A IF ZERO EXIT 
IF NOT MASK OFF LEAD¬ 
ING CHARACTER AND TEST 
FOR MINUS SIGN OR / 

IF NOT - ASSUME + 
CONVERT POSITIVE INCRE¬ 
MENT LEAVE IN A 
CONVERT NEGATIVE INCRE¬ 
MENT LEAVE IN A 
ADD EXECUTION LOCATION 
TO INCREMENT AND LEAVE 
IN ACCUMULATOR 
CONVERT CONTENTS OF U 
THEN JUMP TO ZERO TEST 
CONVERT CONTENTS OF V 
IF TAG IS PRESENT 
LOOK UP EXECUTION LOC¬ 
ATION OF TAG AND LEAVE 


50737 

00745 

47 

00746 

00750 

50740 

00746 

11 

02115 

02064 

50741 

00747 

55 

31000 

00025 

50742 

00750 

51 

02146 

02530 

50743 

00751 

45 

00000 

00770 

50744 

00752 

11 

02147 

02530 

50745 

00753 

45 

00000 

00770 

50746 

00754 

11 

02150 

02530 

50747 

00755 

45 

00000 

00770 

50750 

00756 

11 

02151 

02 5 3 0 

50751 

00757 

45 

00000 

00770 

50752 

00760 

31 

01454 

00000 

50753 

00761 

36 

02113 

02530 

50754 

00762 

45 

00000 

00770 

50755 

00763 

34 

3 0000 

00000 

50756 

00764 

31 

02120 

00000 

50757 

00765 

00 

11432 

00000 

50760 

00766 

00 

0 2 001 

00000 

50761 

00767 

00 

00000 

00000 

50762 

00770 

11 

02525 

31000 

50763 

00771 

55 

31000 

32006 

50764 

00772 

47 

00773 

01003 

50765 

00773 

51 

02134 

32000 

50766 

00774 

43 

02152 

00771 

50767 

00775 

43 

02121 

01000 

50770 

00776 

37 

01126 

01107 

50771 

00777 

45 

00000 

01002 

50772 

01000 

37 

01126 

01107 

50773 

01001 

13 

32000 

32000 

50774 

01002 

35 

02530 

02530 

50775 

01003 

31 

02530 

00000 

50776 

01004 

45 

00000 

00000 

50777 

01005 

37 

00630 

00571 

51000 

01006 

45 

01011 

01010 

51001 

01007 

37 

00630 

00574 

51002 

01010 

47 

01013 

01014 

51003 

01011 

37 

01004 

00707 

51004 

01012 

31 

32000 

00000 
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T69 

MJ 



IN ACCUMULATOR AND EXIT 


EJ 

0 

T 69 

TEST FOR BLANK FIELD 


RJ 

T83 

T82 

CONVERT DECIMAL INTEGER 


MJ 


T69 

TO BINARY LEAVE IN A 

UNDTAG 

TU 

T12 5 

L + l 

SET UP REPEAT COMMAND 


RP 


L+2 

TEST IF UNDEFINED TAG 

T70 

EJ 

UT 

T72 

HAS BEEN STORED BEFORE 


TP 

A 

UT 

STORE UNDEFINED TAG 


RA 

L-l 

L< 1) 

BUMP UNDEFINED TAG STORE 


RA 

T 12 5 

L(lOOOOOB) 

BUMP UNDEFINED TAG TALLY 


TJ 

T126 

L + 2 

TEST FOR TOO MANY TAGS 


TV 

T70 

T70-1 

CHANGE REPEAT EXIT 


SS 

RPD 


COMPUTE EXECUTION 

T71 

LTL 

21 

A 

ADDRESS OF UNDEFINED 


SA 

T127 


TAG AND LEAVE IN ACCUM 


TP 

DEF 

T 1 3 8 

STORE DEF WARNING IN 


MJ 


T 67-1 

ERROR INDICATOR EXIT 

T72 

SN 

Q 

15 

IF UNDEFINED TAG IS 


SA 

T12 5 


ALREADY STORED COMPUTE 


SS 

L(100000B) 


ITS EXECUTION ADDRESS 


MJ 


T71 

AND LEAVE IN ACCUM 

T74 

TP 

W+2 

A 

TEST OPERATION FIELD FOR 


EJ 

RSRV 

T77 

RSRV OR SETL PSEUDO 


EJ 

SETL 

L + 2 

INSTRUCTIONS 

T75 

MJ 



TO USE RJ T75 T74 


TP 

W+3 

A 

IF SETL TEST IF U FIELD 


EJ 

E 

L + 3 

HAS SPECIAL TAG E 


RJ 

T69 

T 67 

NO TRANSLATE U FIELD 


ZJ 

L+2 

L + 3 

IF ZERO IGNORE IF NOT 


TP 

T120 

A 

REPLACE STORAGE LOCATN 


TP 

A 

T121 

COUNTER WITH U IF SO 


TP 

W+5 

A 

REPLACE WITH EXEC LCTR 

T76 

EJ 

S 

L+3 

TEST IF V FIELD IS S 


RJ 

T 69 

T68 

NO TRANSLATE V AND REP 


ZJ 

L+2 

L + 3 

LACE EXECUTION L COUNTR 


TP 

T121 

A 

YES REPLACE WITH STOR¬ 


TP 

A 

T120 

AGE LOCATION COUNTER 


MJ 


T75 

AND EXIT BACK TO T75 


5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

£ 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 


1005 

01013 

45 

00000 

00000 

1006 

01014 

43 

31000 

01013 

1007 

01015 

37 

01126 

01107 

1010 

01016 

45 

00000 

01013 

1011 

01017 

15 

01461 

01020 

1012 

01020 

75 

00000 

01022 

1013 

01021 

43 

03251 

01034 

1014 

01022 

11 

32000 

03251 

1015 

01023 

21 

01022 

02113 

1016 

01024 

21 

01461 

02120 

1017 

01025 

42 

01462 

01027 

1020 

01026 

16 

01021 

01020 

1021 

01027 

34 

02075 

00000 

1022 

01030 

22 

00025 

32000 

1023 

01031 

32 

01464 

00000 

1024 

01032 

11 

02051 

01477 

1025 

01033 

45 

00000 

01004 

1026 

01034 

33 

31000 

00017 

1027 

01035 

32 

01461 

00000 

1030 

01036 

34 

02120 

00000 

1031 

01037 

45 

00000 

01030 

1032 

01040 

11 

02502 

32000 

1033 

01041 

43 

02061 

01061 

1034 

01042 

43 

02062 

01044 

1035 

01043 

45 

00000 

00000 

1036 

01044 

11 

02503 

32000 

1037 

01045 

43 

02056 

010 50 

1040 

01046 

37 

01013 

01005 

1041 

01047 

47 

01051 

01052 

1042 

01050 

11 

01454 

32000 

1043 

01051 

11 

32000 

01455 

1044 

01052 

11 

02505 

32000 

1045 

01053 

43 

02057 

01056 

1046 

01054 

37 

01013 

01007 

1047 

01055 

47 

01057 

01060 

1050 

01056 

11 

01455 

32000 

1051 

01057 

11 

32000 

01454 

1052 

01060 

45 

00000 

01043 
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T77 


T80 


T 8 1 
T82 


T82A 


T83 


RJ 

T69 

T 67 

AT 

T121 

T121 

RJ 

T 69 

T68 

AT 

T120 

T120 

MJ 


T75 

TP 

A 

Q 

TP 

L (0 ) 

TEMP 

TP 

L (5 ) 

TEMP+1 

LQ 

Q 

6 

QT 

L(77B) 

A 

EJ 

L (2 ) 

T81-2 

ST 

L ( 3 ) 

TEMP+2 

SJ 

T81-1 

L + l 

T J 

L ( 8 ) 

L+4 

EJ 

L(22B) 

T 81-1 

TP 

OCT 

T138 

MJ 


T81-1 

SP 

TEMP 

3 

AT 

TEMP+2 

TEMP 

I J 

TEMP+1 

T80+3 

SP 

TEMP 


MJ 



TP 

L (0 ) 

TEMP 

TP 

L ( 5 ) 

TEMP+2 

LQ 

Q 

6 

QT 

L(77B) 

A 

ST 

L (3 ) 

TEMP+1 

SJ 

T83-1 

L + l 

TJ 

LUO) 

T82A 

EJ 

L(40B) 

T83-1 

TP 

DEC 

T138 

MJ 


T83-1 

SP 

TEMP 

2 

SA 

TEMP 

1 

AT 

TEMP+1 

TEMP 

IJ 

TEMP+2 

T82 + 2 

SP 

TEMP 


MJ 




IF RSRV ADD THE CONTENTS 
OF U AND V TO THE 
STORAGE AND EXECUTION 
LOCATION COUNTERS RESP 
ECTIVELEY EXIT TO T75 
THIS IS A CLOSED SUB¬ 
ROUTINE THAT WILL CON¬ 
VERT THE FIVE HI ORDER 
OCTAL XS3 CHARACTERS 
IN THE RIGHT HALF OF 
THE ACCUM TO BINARY 
AND LEAVE THE RESULT 
IN THE ACCUMULATOR 
THE CONVERSION WILL 
END AFTER 5 CHARACTERS 
HAVE BEEN CONVERTED OR 
A NON OCTAL CHARACTER 
HAS BEEN FOUND IF THIS 
CHARACTER IS NOT B OR 
BLANK AN OCT WILL BE 
STORED IN ERR INDICATOR 
TO USE RJ T81 T80 
THIS IS A CLOSED SUB¬ 
ROUTINE THAT WILL CON 
VERT THE FIVE HI ORDER 
DECIMAL XS3 CHARACTERS 
IN Q TO BINARY AND 
LEAVE THE RESULT IN THE 
ACCUMULATOR THE CON 
VERSION WILL END AFTER 
5 CHARACTERS HAVE BEEN 
CONVERTED OR A NON DEC 
IMAL CHARACTER HAS BEEN 
FOUND IF THIS CHARACT 
ER IS NOT ) OR BLANK 
A DEC WARNING WILL BE 
STORED IN ERR INDICATOR 
TO USE RJ T83 T82 


51053 

01061 

37 

01013 

51054 

01062 

35 

01455 

51055 

01063 

37 

01013 

51056 

01064 

35 

01454 

51057 

01065 

45 

00000 

51060 

01066 

11 

32000 

51061 

01067 

11 

02115 

51062 

01070 

11 

02131 

51063 

01071 

55 

31000 

51064 

01072 

51 

02134 

51065 

01073 

43 

02121 

51066 

01074 

36 

02125 

51067 

01075 

46 

01105 

51070 

01076 

42 

02123 

51071 

01077 

43 

02153 

51072 

01100 

11 

02050 

51073 

01101 

45 

00000 

51074 

01102 

31 

02525 

51075 

01103 

35 

02527 

51076 

01104 

41 

02526 

51077 

01105 

31 

02525 

51100 

01106 

45 

00000 

51101 

01107 

11 

02115 

51102 

OHIO 

11 

02131 

51103 

01111 

55 

31000 

51104 

01112 

51 

02134 

51105 

01113 

36 

02125 

51106 

01114 

46 

01125 

51107 

01115 

42 

02135 

51110 

01116 

43 

02154 

51111 

01117 

11 

02047 

51112 

01120 

45 

00000 

51113 

01121 

31 

02525 

51114 

01122 

32 

02525 

51115 

01123 

35 

02526 

51116 

01124 

41 

02527 

51117 

01125 

31 

02525 

51120 

01126 

45 

00000 


01005 

01455 

01007 

01454 

01043 

31000 

02525 

02526 

00006 

32000 

01104 

02527 

01076 

01102 

01105 

01477 

01105 

00003 

02525 

01071 

00000 

00000 

02525 

02527 

00006 

32000 

02526 

01115 

01121 

01125 

01477 

01125 

00002 

00001 

02525 

01111 

00000 

00000 
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T84 

TP 

L (4 ) 

TEMP+1 


LTR 

21 

Q 


TP 

L (0 ) 

TEMP 


LQ 

Q 

3 


SP 

TEMP 

6 


QA 

L (7 ) 

TEMP 


IJ 

TEMP+1 

L—3 


RA 

TEMP 

XS3Z 

T85 

MJ 



T86 

TP 

A 

W+16 


LTL 

6 

W+14 


LTL 

15 

W+15 

T87 

MJ 



fldec 

RPV 

4 

L+2 


TP 

L (0 ) 

TEMP 


TP 

L {5 ) 

TEMP+5 


LQ 

TEMP+4 

6 


QT 

L(77B) 

A 


EJ 

L (31B ) 

T91 


EJ 

L (0) 

T91 


EJ 

L(22B) 

T91-2 


EJ 

L {2 ) 

T91 


ST 

LIB) 

TEMP+12 


TJ 

L (10 ) 

L+4 

T90 

TP 

L (0 ) 

TEMP 


TP 

DEC 

W+18 


MJ 


T98 + 1 


SP 

TEMP 

2 


SA 

TEMP 

1 


AT 

TEMP+12 

TEMP 


RA 

TEMP+1 

TEMP+2 


MJ 


L + 2 


RA 

TEMP+2 

L (1 ) 


IJ 

TEMP+5 

FLDEC+3 

T91 

MJ 




TP 

W+3 

TEMP+4 


RJ 

T91 

FLDEC 


EJ 

L (2) 

T91-1 


THIS IS A CLOSED SUB¬ 
ROUTINE THAT WILL CON¬ 
VERT THE FIVE LOW 
ORDER DIGITS OF A 
RIGHT TO XS-3 OCTAL 
AND LEAVE THE RESULT 
IN THE ACCUMULATOR 
TO USE RJ T85 T84 
EXIT 

STORE LOW 5 OCTAL DIGITS 
OF A INTO W+16 NEXT 5 
IN W+15 AND HIGH ORDER 
2 INTO W+14 AND EXIT 
CLEAR FOUR TEMPORARY 
CELLS TEMP TO TEMP+3 
SET INDEX TO 5 
MASK OFF LEADING CHAR¬ 
ACTER TO ACCUMULATOR 
TEST FOR F 

TEST FOR BLANK COLUMN 
TEST FOR DECIMAL POINT 
TEST FOR MINUS SIGN 
SUBTRACT 3 AND STORE 
TEST FOR NON DECIMAL 
CLEAR RESULT CELL 
SET ERROR INDICATOR 
JUMP TO ERROR EXIT 
MULTIPLY INTEGER TO DATE 
BY 12 AND ADD IN THIS 
DIGIT STORE IN TEMP 
BUMP DECIMAL PLACE COUNT 
JUMP TO DIGIT INDEX TEST 
SET DECIMAL PLACE ADDER 
TEST FOR 6 DIGITS 
EXIT 

STORE 1ST 6 DIGITS OF U 
IN TEMP+4 TO BE CONV¬ 
ERTED TO BINARY 


5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 


1121 

01 

127 

11 

02126 

02526 

1122 

01 

130 

22 

10025 

31 COO 

1123 

01 

131 

11 

02115 

02525 

1124 

01 

132 

55 

31000 

00003 

1125 

01 

133 

31 

02525 

00006 

1126 

01 

134 

52 

02155 

02525 

1127 

01 

135 

41 

02526 

01132 

1130 

01 

136 

21 

02525 

02077 

1131 

01 

137 

45 

00000 

00000 

1132 

01 

140 

11 

32000 

02520 

1133 

01 

141 

22 

00006 

02516 

1.134 

01 

142 

22 

00017 

02 517 

1135 

01 

143 

45 

00000 

00000 

1136 

01 

144 

75 

10004 

01146 

1137 

01 

145 

11 

02115 

02525 

1140 

01 

146 

11 

02131 

02532 

1141 

01 

147 

55 

02531 

00006 

1142 

01 

150 

51 

02134 

32000 

1143 

01 

151 

43 

02155 

01171 

1144 

01 

152 

43 

02115 

01171 

1145 

01 

153 

43 

02153 

01167 

1146 

01 

154 

43 

02121 

01171 

1147 

01 

155 

36 

02125 

02541 

1150 

01 

156 

42 

02135 

01162 

1151 

01 

157 

11 

02115 

02525 

1152 

01 

160 

11 

02047 

02522 

1153 

01 

161 

45 

00000 

01260 

1154 

01 

162 

31 

02525 

00002 

1155 

01 

163 

32 

02525 

00001 

1156 

01 

164 

35 

02541 

02525 

1157 

01 

165 

21 

02526 

02527 

1160 

01 

166 

45 

00000 

01170 

1161 

01 

167 

21 

02527 

02113 

1162 

01 

170 

41 

02532 

01147 

1163 

01 

171 

45 

00000 

00000 

1164 

01 

172 

11 

02503 

02531 

1165 

01 

173 

37 

01171 

01144 

1166 

01 

174 

43 

02121 

01170 
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T92 


T9 3 


T94 


T95 


T96 


SP 

LTL 

W+4 

24 

A 

LTR 

12 

TEMP+4 

RJ 

T91 

FLDEC+2 

EJ 

L (2 ) 

T90 

TP 

TEMP 

TEMP+7 

TP 

TEMP+1 

TEMP+8 

TP 

W+5 

TEMP+4 

RJ 

T91 

FLDEC 

EJ 

SP 

L (2 ) 

TEMP+1 

T91-2 

ZJ 

L + l 

L + 2 

TN 

TEMP 

TEMP 

RS 

TEMP 

TEMP+8 

TM 

TEMP 

TEMP+2 

TP 

SP 

1S34 

TEMP+2 

TEMP+4 

TJ 

MJ 

L(54B ) 

L + 6 

T9 8 

SP 

TEMP+4 

2 

SA 

TEMP+4 

1 

SF 

A 

TEMP+3 

TP 

A 

TEMP+4 

IJ 

TEMP+2 

L—4 

MP 

TEMP 

L10B2 

LT 

3 

TEMP+6 

SJ 

L+l 

L+4 

RS 

TEMP+6 

L (1) 

SP 

1S3 4 

35 

DV 

TEMP+4 

TEMP+4 

MP 

TEMP+4 

TEMP+7 

ZJ 

L+l 

T98+1 

SF 

A 

TEMP+3 

TP 

A 

TEMP+7 

RA 

TEMP+6 

TEMP+3 

AT 

L (1) 

TEMP+6 

LQ 

W+2 

Q+6 

TP 

Q 

TEMP+4 


STORE NEXT 4 DIGITS OF 
U INTO TEMP+4 TO BE 
CONVERTED TO BINARY AND 
AND ADDED TO FIRST SIX 
TEST FOR MINUS SIGN 
STORE MANTISSA IN TEMP+7 
SAVE DECIMAL PLACE COUNT 
STORE EXPONENT IN TEMP+4 
TO BE CONVERTED TO BIN¬ 
ARY AND STORE IN TEMP 
AND ITS SIGN IN TEMP+1 
TEST IF SIGN IS NEGATIVE 
IF SO NEGATE EXPONENT 
EXPONENT- DECIMAL PLACES 
STORE ABSOLUTE VALUE OF 
EXPONENT IN TEMP+2 
TEST IF EXPONENT IS TOO 
LARGE OR TOO SMALL IF 
SO EXIT TO ERR ROUTINE 
COMPUTE 10 TO THE NTH 
POWER WHERE N IS THE 
ABSOLUTE VALUE OF THE 
EXPONENT - DECIMAL PL¬ 
ACES STORE IN TEMP+4 
MULT EXPONENT X LOG10B2 
SAVE INTEGER PART 
TEST FOR NEGATIVE EXPON 
IF SO SUBTRACT ONE FROM 
INTEGER PARTAND RECIP 
ROCATE EXPONENT (TEMP+4 
MULT 10 TO NTHX MANTISSA 
TEST FOR ZERO 
NORMALIZE ABOVE PRODUCT 
AND SAVE SF COUNT 
ADD COUNT TO INTEGER PRT 
ADD ONE TO THIS SUM 
BREAK OPERATION FIELD IN 
TWO PARTS STORE BINARY 


51167 

01175 

31 

02504 

51170 

01176 

22 

00000 

51171 

01177 

22 

10014 

51172 

01200 

37 

01171 

51173 

01201 

43 

02121 

51174 

01202 

11 

02525 

51175 

01203 

11 

02526 

51176 

01204 

11 

02505 

51177 

01205 

37 

01171 

51200 

01206 

43 

02121 

51201 

01207 

31 

02526 

51202 

01210 

47 

01211 

51203 

01211 

13 

02525 

51204 

01212 

23 

02525 

51205 

01213 

12 

02525 

51206 

01214 

11 

02065 

51207 

01215 

31 

02527 

51210 

01216 

42 

02136 

51211 

01217 

45 

00000 

51212 

01220 

31 

02531 

51213 

01221 

32 

02531 

51214 

01222 

74 

32000 

51215 

01223 

11 

32000 

51216 

01224 

41 

02527 

51217 

01225 

71 

02525 

51220 

01226 

22 

00003 

51221 

01227 

46 

01230 

51222 

01230 

23 

02533 

51223 

01231 

31 

02065 

51224 

01232 

73 

02531 

51225 

01233 

71 

02531 

51226 

01234 

47 

01235 

51227 

01235 

74 

32000 

51230 

01236 

11 

32 000 

51231 

01237 

21 

02533 

51232 

01240 

35 

02113 

51233 

01241 

55 

02502 

51234 

01242 

11 

31000 


00030 

32000 

02531 

01146 
01157 
02534 
02535 
02 531 
01144 
01167 
00000 
01212 
02525 
02535 
02527 
02531 
00000 
01224 
01257 
00002 
00001 
02530 
02531 
01220 
02066 
02533 
01233 
02113 
00043 
02531 
02534 
01260 
02530 
02534 
02530 
02533 
31006 
02531 
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LQ 

Q 

18 


Qf 

U77B) 

TEMP+9 

T97 

RJ 

L 

L+l 


RA 

TEMP+6 

L(200B) 


RA 

TEMP+7 

L(200B) 


EJ 

A 

L+3 


RA 

TEMP+6 

L (1 ) 


SP 

1S34 



LT 

28 

Q 


SP 

TEMP+6 

27 


AT 

0 

Q 


EJ 

A 

T99A 

T 9 8 

TP 

EXP 

W+l 8 


TP 

UO! 

Q 


MJ 


T998-1 


TP 

BLNKS 

W+17 

T9 9 

RJ 

T 97 

T91 + 1 


RJ 

T91 

FLDEC 


RA 

TEMP+6 

TEMP 


SA 

L {1 ) 



SJ 

T98 

L+l 


TV 

A 

L + l 


SP 

TEMP+7 



SA 

1S3 5 



LT 


Q 

T99A 

RS 

TEMP+9 

L(2 ) 


ZJ 

L+2 

L+l 


TN 

Q 

Q 


SP 

0 


T99B 

RJ 

L 

L + l 


RJ 

T87 • 

T86 

T100 

RJ 

T97 

T97 


MJ 


T12 

W8TAPE 

SP 

TEMP+6 



EJ 

BLNKS 

L+2 


TP 

TEMP+6 

TEMP+7 


TP 

TEMP+7 

Q 


SP 

Q 



SCALE FACTOR IN TEMP+4 
AND SIGN IN TEMP+9 
ONE SHOT SWITCH 
ADD 200 TO CHARACTERITIC 
ADD 200 TO MANTISSA 
TEST FOR ROUND CARRY 
ADD 1 TO CHARACTERISTIC 
SET MANTISSA TO 1 S 34 
COMBINE CHARACTERISTIC 
AND MANTISSA AND PUT 
IN A AND 0 

TEST IF CHARACTERISTIC 
IS TOO LARGE IF SO SET 
TO ZERO AND GO TO ERROR 
EXIT 

CLEAR ERROR INDICATOR 
ENTRANCE FOR STATED PT 
CONVERT MANTISSA 
CONVERT SCALING 
ADD ONE 

TEST FOR MINUS 
SET UP SHIFT 
ROUND MANTISSA 
AND SHIFT 
STORE IN Q 
TEST SIGN OF NUMBER 
IF NEGATIVE COMPLEMENT 
PACKED NUMBER IN Q 
SPLIT OFF RESULT INTO 
ONE SHOT SWITCH 
W+14 W+15 W+16 
RESTORE SWITCH 
EXIT TO STORE FOR WRITE 
TEST IF STORAGE ADDRESS 
IS BLANK IF SO USE 
EXECUTION ADDRESS AS 
NEXT STORAGE ADDRESS 
TEST IF THIS ADDRESS IS 


5 

1235 

01243 

55 

31000 

00022 

5 

1236 

01244 

51 

02134 

02536 

5 

1237 

01245 

37 

01245 

01246 

5 

1240 

01246 

21 

02533 

02157 

5 

1241 

01247 

21 

02534 

02157 

5 

1242 

01250 

43 

32000 

01253 

5 

1243 

01251 

21 

02533 

02113 

5 

1244 

01252 

31 

02065 

00000 

5 

1245 

01253 

22 

00034 

31000 

5 

1246 

01254 

31 

02533 

00033 

5 

1247 

01255 

35 

31000 

31000 

5 

1.2 50 

01256 

43 

32000 

01274 

5 

1251 

01257 

11 

02054 

02522 

5 

1252 

01260 

11 

02115 

31000 

5 

1253 

01261 

45 

00000 

01277 

5 

1254 

01262 

11 

02100 

02521 

5 

1255 

01263 

37 

01245 

01172 

5 

1256 

01264 

37 

01171 

01144 

5 

1257 

01265 

21 

02533 

02525 

5 

1260 

01266 

32 

02113 

00000 

5 

1261 

01267 

46 

01257 

01270 

5 

1262 

01270 

16 

32000 

01271 

5 

1263 

01271 

31 

02534 

00000 

5 

1264 

01272 

32 

02067 

00000 

5 

1265 

01273 

22 

00000 

31000 

5 

1266 

01274 

23 

02536 

02121 

5 

1267 

01275 

47 

01277 

01276 

5 

1270 

01276 

13 

31000 

31000 

5 

1271 

01277 

31 

31000 

00000 

5 

1272 

01300 

37 

01300 

01301 

5 

1273 

01301 

37 

01143 

01140 

5 

1274 

01302 

37 

01245 

01245 

5 

1275 

01303 

45 

00000 

00174 

5 

1276 

01304 

31 

02533 

00000 

5 

1277 

01305 

43 

02100 

01307 

5 

1300 

01306 

11 

02533 

02534 

5 

1301 

01307 

11 

02534 

31000 

5 

1302 

01310 

31 

31000 

00000 



SYMBOLIC LANGUAGE ASSEMBLY PROGRAM ( 



ss 

BT 



TP 

0 

BT 


EJ 

L ( 1) 

L+4 


TP 

Q 

BT + 1 


RA 

L-l 

L { 2 ) 


RA 

L+l 

L {200000B ) 


RA 

BT 

L(l) 


SP 

W+l 4 

30 


SA 

W+15 

30 


SA 

W+l 6 



RPV 

2 

L+2 

T100A 

LTR 

36 

BT+100 


RA 

L-l 

L ( 2 5 


RA 

T102+3 

L ( 2 ) 

T101 

MJ 



T102 

TV 

T15T 

T100A 


RPB 

240 

L + 3 


TP 

BT+100 

DSTORE 


B 




RA 

L-2 

L-l 


TP 

L { 0 ) 

L-2 

T1 02 A 

MJ 




RPB 

1728 

L + 2 

T1 03 

TP 

DSTORE 

TT 


EF 


WTP6 

T104 

RPV 

20 

L+2 


TP 

Z3S 

W 


SP 

BT + 1 



ZJ 

L + l 

T108A 


RJ 

T85 

T 84 


TP 

A 

W 

T105 

IJ 

BT + 2 

T106-1 


RA 

L—5 

L(200000B) 


RA 

L-2 

L (200000B) 


MJ 


T107 


RPB 

2 

L + 2 

T106 

TP 

TT 

W+l 


ZJ 

L+2 

L+l 
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ONE GTR THAN PREVIOUS 
ADDRESS AND SAVE IN 
BT IF NOT GTR STORE 
ALSO IN BT+N WHERE N 
IS ODD INTEGER STORE 
INDEX IN BT + K WHERE K 
IS AN EVEN INTEGER 
COMBINE XS3 INSTRUCTION 
INTO 2 COMPUTER WORDS 
AND STORE STARTING IN 
BT+100 BUMP WORD 
COUNTER BY 2 TO DETER¬ 
MINE DRUM STORAGE ADD¬ 
RESS OF NEXT BLOCK 
TRANSFER AND EXIT 
RESET CORE BUFFER STORE 
BLOCK TRANSFER XS3 INST 
RUCTIONS TO DRUM 
XS-3 WORD COUNTER 
BUMP BLOCK STORE ADDRESS 
CLEAR WORD COUNTER 
EXIT 

TO WRITE OCTAL BLOCK 
TRANSFER XS3 WORDS FROM 
DRUM-CORE START TAPE 
SET W STORAGES TO XS3 
ZEROES 

TEST STORAGE ADDRESS 
IF ZERO EXIT IF NOT 
CONVERT TO XS-3 AND 
STORE IN W 

TEST INDEX FOR THIS STO 
RAGE ADDRESS IF ZERO 
FETCH NEXT STORAGE ADD 
RESS IF NOT STORE XSO 
INSTRUCTION IN WT+1-2 
TEST IF INDEX IS ZERO 
IF SO SET BLOCKETTE 


51303 

01311 

34 

03364 

00000 

51304 

01312 

11 

31000 

03364 

51305 

01313 

43 

02113 

01317 

51306 

01314 

11 

31000 

03365 

51307 

01315 

21 

01314 

02121 

51310 

01316 

21 

01317 

02110 

51311 

01317 

21 

03364 

02113 

51312 

01320 

31 

02516 

00036 

51313 

01321 

32 

02517 

00036 

51314 

01322 

32 

02520 

00000 

51315 

01323 

75 

10002 

01325 

51316 

01324 

22 

10044 

03530 

51317 

01325 

21 

01324 

02121 

51320 

01326 

21 

013 3 3 

02121 

51321 

01327 

45 

00000 

00000 

51322 

01330 

16 

01517 

01324 

51323 

01331 

75 

30360 

01334 

51324 

01332 

11 

03530 

50000 

51325 

01333 

00 

00000 

00000 

51326 

01334 

21 

01332 

01333 

51327 

01335 

11 

02115 

01333 

51330 

01336 

45 

00000 

00000 

51331 

01337 

75 

33300 

01341 

51332 

01340 

11 

50000 

11432 

51333 

01341 

17 

00000 

02043 

51334 

01342 

75 

10024 

01344 

51335 

01343 

11 

02076 

02500 

51336 

01344 

31 

03365 

00000 

51337 

01345 

47 

01346 

01401 

51340 

01346 

37 

01137 

01127 

51341 

01347 

11 

32000 

02500 

51342 

01350 

41 

03366 

01354 

51343 

01351 

21 

01344 

02110 

51344 

01352 

21 

01350 

02110 

51345 

01353 

45 

00000 

01365 

51346 

01354 

75 

30002 

01356 

51347 

01355 

11 

11432 

02501 

51350 

01356 

47 

01360 

01357 
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T107 

T107A 

T108 

T108A 

T109 

XS3CON 

T110 

Till 


TP 

LC1) 

T144 

RA 

L—3 

L(200002B) 

RA 

W+13 

WDA 

RA 

T103 

L(200000B) 

IJ 

T144 

T105 

TU 

T104+2 

T107A 

TP 

L (5 5 

T 144 

RPV 

20 

L+2 

EW1 


W 

TV 

T153 

T1 06 

RA 


L ( 6 ) 

I J 

T145 

T104 

TP 

L (5 ) 

T145 

I J 

T146 

T104 

TP 

L(24B ) 

T146 

EF 

TT 

STAPE 

TU 

L-l 

T1 06 

MJ 


T103-1 

TP 

L (1 ) 

T146 

TP 

PSTOP 

W 

RJ 

T108 

T107+1 

EF 


STAPE 

EF 

MJ 


RWND6 

SP 

W+l 


LTL 

18 

W 

TP 

A 

W+l 

SP 

W+l 2 


TP 

A 

TEMP+6 

EJ 

BLNKS 

L + 3 

RJ 

T85 

T84 

TP 

A 

W+12 

SP 

W+13 


TP 

A 

TEMP+7 

EJ 

BLNKS 

T113 

RJ 

T85 

T84 

TP 

A 

W+13 

SP 

W+l 4 



INDEX TO ONE 
BUMP STORE BY 2 
BUMP DRUM TO CORE TRAN¬ 
SFER BY 2 

TEST FOR FULL BLOCKETTE 
SET UP COMMAND TO BUMP 
STORAGE ADDRESS BY SIX 
WRITE ONE BLOCKETTE 
FROM W STORAGES 
RESET STORE COMMAND 
BUMP STORAGE ADDRESS 
TEST FOR FULL BLOCK 
RESET BLOCKETTE INDEX 
TEST IF 21 BLOCKS HAVE 
BEEN WRITTEN RESET 
INDEX AND STOP TAPE 
RESET STORE COMMAND 
GO BACK TO DRUM-CORE TR 
SET FREE RUN BLOCK COUNT 
STORE PRINTER STOP IN W 
WRITE LAST BLOCKETTE 
STOP OCTAL TAPE 
REWIND OCTAL TAPE 
EXIT 

SHIFT TAG LEFT THREE 
XS-3 POSITIONS STORE IN 
W AND W+l 

SAVE STORAGE ADDRESS IN 
TEMP+6 AND TEST IF 
BLANK DO NOT CONVERT 
CONVERT TO XS-3 AND 
STORE IN W+l2 
SAVE EXECUTION ADDRESS 
IN TEMP+7 AND TEST IF 
BLANK DO NOT CONVERT 
CONVERT TO XS-3 AND 
STORE IN W+13 
TEST IF OP IS BLANK IF 


51351 

01357 

11 

02113 

01504 

51352 

01360 

21 

01355 

02160 

51353 

01361 

21 

02515 

02074 

51354 

01362 

21 

01340 

02110 

51355 

01363 

41 

01504 

01350 

51356 

01364 

15 

01344 

01371 

51357 

01365 

11 

02131 

01504 

51360 

01366 

75 

10024 

01370 

51361 

01367 

77 

10000 

■02500 

51362 

01370 

16 

01514 

01355 

51363 

01371 

21 

00000 

02117 

51.364 

01372 

41 

01505 

01342 

51365 

01373 

11 

02131 

015C5 

51366 

01374 

41 

01506 

01342 

51367 

01375 

11 

02130 

01506 

51370 

01376 

17 

11432 

02045 

51371 

01377 

15 

01376 

013 5 5 

51372 

01400 

45 

00000 

01337 

51373 

01401 

11 

02113 

01506 

51374 

01402 

11 

02101 

02500 

51375 

01403 

37 

01374 

01366 

51376 

01404 

17 

00000 

02045 

51377 

01405 

17 

00000 

02044 

51400 

01406 

45 

00000 

00000 

51401 

01407 

31 

02501 

00000 

51402 

01410 

22 

00022 

02500 

51403 

01411 

11 

32000 

02501 

51404 

01412 

31 

02514 

00000 

51405 

01413 

11 

32000 

02533 

51406 

01414 

43 

02100 

01417 

51407 

01415 

37 

01137 

01127 

51410 

01416 

11 

32000 

02514 

51411 

01417 

31 

02515 

00000 

51412 

01420 

11 

32000 

02534 

51413 

01421 

43 

02100 

01440 

51414 

01422 

37 

01137 

01127 

51415 

01423 

11 

32000 

02515 

51416 

01424 

31 

02516 

00000 
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EJ 

BLNKS 

T114 


RJ 

T85 

T 84 


LQ 

A 

A+24 


LTL 

12 

W+14 


SP 

W+l 5 



RJ 

T85 

T84 

T112 

TP 

A 

W+l 5 


SP 

W+l 6 



RJ 

T85 

T84 


TP 

A 

W+16 


RJ 

T101 

WBTAPE 

T113 

MJ 



T114 

TP 

W+2 

A 


EJ 

RSRV 

T115 


RPV 

2 

T113 


TP 

BLNKS 

W+12 

T115 

SP 

W+3 



ZJ 

L+2 

L + l 


TP 

BLNKS 

W+12 


SP 

W+5 



ZJ 

T 113 

L + l 


TP 

BLNKS 

W+l 3 


MJ 


T113 

T120 



10B) 

T121 



10B) 

T122 


20000B ) 


T123 


20144B ) 


T124 




T125 


20000B ) 


T126 


20113B) 


T1 29 


21750B ) 


T127 




T1 28 


20000B ) 


T130 




T131 




T132 




T133 




T134 





SO JUMP TO RSRV TEST 
CONVERT TO XS-3 SPLIT 
OFF TWO LOW ORDER CHAR 
ACTERS STORE IN W+14 
STORE U FIELD IN ACCUM 
CONVERT TO XS-3 
STORE IN W+l5 
STORE V FIELD IN ACCUM 
CONVERT TO XS-3 
STORE IN W+l6 
SET UP OCTAL TAPE BUFFER 
EXIT 

TEST LOCATION FIELD FOR 
IF SO JUMP TO T115 
SET STORAGE AND EXECUTON 
TO ZERO FOR EQLS + SETL 
TEST IF U FIELD OF RSRV 
IS ZERO IF SO CLEAR 
STORAGE ADDRESS 
TEST IF V FIELD OF RSRV 
IS ZERO IF SO CLEAR 
EXECUTION ADDRESS 
JUMP TO CONVERSION EXIT 
EXECUTION LOCATION CTR 
STORAGE LOCATION COUNTER 
L( TYPE CONSTANT TALLY 
L{ TYPE CONSTANT MAXIMUM 
ADDRESS OF 1ST CONSTANT 
UNDEFINED TAG TALLY 
UNDEFINED TAG MAXIMUM 
TAG MAXIMUM 

ADDRESS OF 1ST UNDEF TAG 
TAG TALLY 
EQLS TALLY 
EQLS MAXIMUM 
DUPLICATE TAG TALLY 
DUPLICATE TAG MAXIMUM 
LAST EXECUTION ADDRESS 


51417 

01425 

43 

02100 

01441 

51420 

01426 

37 

01137 

01127 

51421 

01427 

55 

32000 

32030 

51422 

01430 

22 

00014 

02516 

51423 

01431 

31 

02517 

00000 

51424 

01432 

37 

01137 

01127 

51425 

01433 

11 

32000 

02517 

51426 

01434 

31 

02520 

00000 

51427 

01435 

37 

01137 

01127 

51430 

01436 

11 

32000 

02520 

51431 

01437 

37 

01327 

01304 

51432 

01440 

45 

00000 

00000 

51433 

01441 

11 

02502 

32000 

51434 

01442 

43 

02061 

01445 

51435 

01443 

75 

10002 

C1440 

51436 

01444 

11 

02100 

02514 

51437 

01445 

31 

02503 

00000 

51440 

01446 

47 

01450 

01447 

51441 

01447 

11 

02100 

02514 

51442 

01450 

31 

02505 

00000 

51443 

01451 

47 

01440 

01452 

51444 

01452 

11 

02100 

02515 

51445 

01453 

45 

00000 

01440' 

51446 

01454 

00 

00000 

00010 

51447 

01455 

00 

00000 

00010 

51450 

01456 

00 

20000 

00000 

51451 

01457 

00 

20144 

00000 

51452 

01460 

00 

00000 

00000 

51453 

01461 

00 

20000 

00000 

51454 

01462 

00 

20113 

00000 

51455 

01463 

00 

21750 

00000 

51456 

01464 

00 

00000 

00000 

51457 

01465 

00 

20000 

00000 

51460 

01466 

00 

00000 

00000 

51461 

01467 

00 

00000 

00000 

51462 

01470 

00 

00000 

00000 

51463 

01471 

00 

00000 

00000 

51464 

01472 

00 

00000 

00000 
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T135 




T136 




T136A 




T137 




T138 




T1 39 

B 



T140 




T141 




T1 42 


20114B > 


T144 

R 

5 


T1 45 

0 

5 


T1 46 

B 

24 


T1 48 

MJ 


T 5 

T149 


WT+1200 

WT 

T 1 50 


W+l 

WT+1200 

T151 

RJ 

T 20 

T18 

T152 

TP 

OTABLE 

0 

T 1 53 


W+3 

W+l 

T1 54 


W+5 

WT+1200 

T1 55 


W +6 

T69-1 

T1 57 



BT+100 

T 160 

RPR 

20 

L + 2 


TP 

W+l 

28UF+900 


RS 

T 122 

RPD 


SJ 

T165 

L + l 


RPV 

20 

L + 2 


TP 

BLNKS 

W 


RPR 

3 

L + 2 

T161 

TP 

CPRINT 

W+5 


LTL 

21 

TEMP+5 


TP 

T13 4 

W+l 3 


RA 

T 13 4 

L (1) 


SS 

T13 5 


T162 

EJ 

L (1 ) 

L + 2 


TP 

T135 

W+12 


RA 

T135 

L ( 1 ) 


RJ 

L 

L + l 

T1 63 

SP 

CPT 



2- CORE ) PAGE 23 OF 

LAST STORAGE ADDRESS 
INPUT BLOCKETTE COUNT 
INPUT BLOCKETTE TALLY 
DRUM STORE TALLY 
ERROR INDICATOR 
BLOCKETTE TALLY 
OUTPUT BLOCK TALLY 
DRUM TO CORE TALLY 
OPERATION TABLE TALLY 
OCTAL TAPE BLOCKET TEST 
OCTAL TAPE BLOCKET TALLY 
OCTAL TAPE BLOCK TALLY 
DUMMY COMMAND 
RESETTING CONSTANT 
RESETTING CONSTANT 
TO READ INPUT TAPE 
FOR OPERATION LOOKUP 
RESETTING CONSTANT 
RESETTING CONSTANT 
RESETTING CONSTANT 
RESETTING CONSTANT 
SAVE END INSTRUCTION 
IN 2BUF+900 

TEST IF L( TYPE CONSTANT 
HAVE BEEN USED 
SET STORAGES W - W+19 
TO BLANKS 

STORE THE WORDS CONSTANT 
POOL IN W+5 “ W+7 
SETUP CONSTANT INDEX 
STORE EXECUTION ADDRESS 
BUMP EXECUTION ADDRESS 
TEST IF STORAGE ADDRESS 
EQUALS EXECUTION ADDR- 
IF NOT STORE IN W+12 
BUMP STORAGE ADDRESS 
ONE SHOT SWITCH 
SPLIT BINARY CONSTANT 


31 

51465 

01473 

00 

00000 

00000 

51466 

01474 

00 

00000 

00000 

51467 

01475 

00 

00000 

00000 

51470 

01476 

00 

00000 

00000 

51471 

01477 

00 

00000 

00000 

51472 

01500 

00 

00000 

00000 

51473 

01501 

00 

00000 

ocooo 

51474 

01502 

00 

00000 

00000 

51475 

01503 

00 

20114 

coooc 

51476 

01504 

00 

00000 

00005 

51477 

01505 

00 

00000 

00005 

51500 

01506 

00 

00000 

0002 4 

51501 

01507 

45 

00000 

0 C 0 6 4 

51502 

01510 

00 

06370 

04110 

51503 

01511 

00 

02 5 01 

06370 

51504 

01512 

37 

002 3 5 

00217 

51505 

01513 

11 

00 362 

31000 

51506 

01514 

00 

02503 

02 501 

51507 

01515 

00 

02 505 

06370 

51510 

01516 

00 

02 506 

01012 

51511 

01517 

00 

00000 

035 3 0 

51512 

01520 

75 

3 0024 

01522 

51513 

01521 

11 

02501 

112 3 5 

51514 

01522 

23 

01456 

02075 

51515 

01523 

46 

01552 

015 2 4 

51516 

01524 

75 

10024 

015 2 6 

51517 

01525 

11 

02100 

02 500 

51520 

01526 

75 

30003 

015 3 0 

51521 

01527 

11 

02102 

02505 

51522 

01530 

22 

00025 

02532 

51523 

01531 

11 

01472 

02515 

51524 

01532 

21 

01472 

02113 

51525 

01533 

34 

01473 

00000 

51526 

01534 

43 

02113 

01536 

51527 

01535 

11 

01473 

02514 

51530 

01536 

21 

01473 

02113 

51531 

01537 

37 

01537 

01540 

51532 

01540 

31 

02 544 

00000 
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T164 


T165 


T166 


T167 


T170 


T171 


RJ 

T87 

T 86 

RA 

L-2 

L{100000B) 

RPB 

2 

L+2 

TP 

CPT+100 

W+9 

RA 

L-l 

L(200000B) 

RJ 

T25 

T21 

RPV 

3 

L+2 

TP 

L (0 5 

W+5 

IJ 

TEMP+5 

T161+2 

RS 

T12 5 

RPD 

SJ 

T170-1 

L+l 

RPV 

20 

L + 2 

TP 

BLNKS 

W 

RPB 

3 

L+2 

TP 

UTPRNT 

W+5 

LTL 

21 

TEMP+5 

SP 

LfO ) 


RJ 

T87 

T86 

RJ 

T163-1 

T161+2 

TP 

UT 

W+9 

RA 

L-l 

L(100000B) 

RJ 

T25 

T21 

RPV 

3 

L+2 

TP 

L<0 ) 

W+5 

IJ 

TEMP+5 

T166+2 

RPB 

20 

L+2 

TP 

2BUF+900 

W+l 

RJ 

T 69 

T 67 

RJ 

T85 

T84 

RPV 

8 

L + 2 

TP 

BLNKS 

W+12 

TP 

A 

W+15 

RJ 

T25 

T21 

TP 

PSTOP 

W+2 

RJ 

T25 

T21 

SJ 

L +4 

L+l 

TP 

T22 + 3 

T22 + 2 

RJ 

T25 

T21 


AND STORE IN W+14 -W+16 
BUMP CONSTANT POOL FETCH 
STORE SYMBOLIC CONSTANT 
INTO W+9 AND W+10 
BUMP FETCH 

STORE IN OUTPUT BUFFER 
CLEAR STORAGES 
W+5 TO W+7 

TEST FOR ALL CONSTANTS 
TEST FOR UNDEFINED TAGS 
IF NOT EXIT IF SO 
CLEAR STORAGES 
W TO W+19 

STORE THE WORDS UNDEFIN 
ED TAGS IN W+5 TO W+7 
SET UP UNDEF TAG INDEX 
SET OCTAL TRANSLATION TO 
ZERO FOR UNDEFINED TAGS 
STORE IN W+14 W+15 W+16 
STORE UNDFD TAG IN W+9 
BUMP FETCH 

STORE IN OUTPUT BUFFER 
CLEAR STORAGES W+5 W+6 
AND W+7 

TEST FOR ALL UNDEFND TAG 
BRING END INSTRUCTION 
IN W STORAGES 
TRANSLATE U ADD OF END 
CONVERT TO XS-3 
CLEAR STORAGES 
W+12 TO W+19 
STORE STARTING ADDRESS 
STORE IN OUTPUT BUFFER 
STORE PRTR STOP IN W+2 
STORE IN OUTPUT BUFFER 
IF TAPE DID NOT WRITE 
GIMMICK TEST 
WRITE LAST BLOCK OF 


51533 

01541 

37 

01143 

01140 

51534 

01542 

21 

01540 

02120 

51535 

01543 

75 

30002 

01545 

51536 

01544 

11 

02710 

02511 

51537 

01545 

21 

01544 

02110 

51540 

01546 

37 

00267 

00236 

51541 

01547 

75 

10003 

01551 

51542 

01550 

11 

02115 

02505 

51543 

01551 

41 

02532 

01531 

51544 

01552 

23 

01461 

02075 

51545 

01553 

46 

01572 

015 5 4 

51546 

01554 

75 

10024 

015 5 6 

51547 

01555 

11 

02100 

02 500 

51550 

01556 

75 

30003 

015 6 0 

51551 

01557 

11 

02105 

02 5 05 

51552 

01560 

22 

00025 

02532 

51553 

01561 

31 

02115 

00000 

51554 

01562 

37 

01143 

01140 

51555 

01563 

37 

01537 

01531 

51556 

01564 

11 

03251 

02511 

51557 

01565 

21 

01564 

02120 

51560 

01566 

37 

00267 

00236 

51561 

01567 

75 

10003 

01571 

51562 

01570 

11 

02115 

02505 

51563 

01571 

41 

02532 

01561 

51564 

01572 

75 

30024 

01574 

51565 

01573 

11 

11235 

02501 

51566 

01574 

37 

01013 

01005 

51567 

01575 

37 

01137 

01127 

51570 

01576 

75 

10010 

01600 

51571 

01577 

11 

02100 

02514 

51572 

01600 

11 

32000 

02517 

51573 

01601 

37 

00267 

00236 

51574 

01602 

11 

02101 

02 502 

51575 

01603 

37 

00267 

0023 6 

51576 

01604 

46 

01610 

01605 

51577 

01605 

11 

00246 

0 024 5 

51600 

01 6 06 

37 

00267 

rs r* **> '< A 
V.- u -• 
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SJ 

L+l 

L-l 

SYMBOLIC TAPE 

51601 

01607 

46 

01610 

01606 


EF 


RWND4 

REWIND INPUT TAPE 

51602 

01610 

17 

00000 

02036 

T1 72 

EF 


RWND5 

REWIND OUTPUT TAPE 

51603 

01611 

17 

00000 

02042 


SP 

T174 


TEST IF OCTAL TAPE 

51604 

01612 

31 

01623 

00000 


2 J 

L+l 

T173 

IS TO BE WRITTEN 

51605 

01613 

47 

01614 

01620 


TP 

L(170000B) 

Q 

STORE MASK IN Q 

51606 

01614 

11 

02111 

31000 


QS 

T174 

WTP6 

SET OCTAL TAPE WRITE 

51607 

01615 

53 

01623 

02043 


OS 

T174 

RWND6 

SET OCTAL TAPE REWIND 

51610 

01616 

53 

01623 

02044 


RJ 

T109 

T102A+1 

WRITE OCTAL TAPE 

51611 

01617 

37 

01406 

01337 

T173 

TV 

L{4001 IB) 

40035B! 

SET FINAL STOP EXIT 

51612 

01620 

16 

02161 

40035 


RS 

Q 

Q 

CLEAR A + Q 

51613 

01621 

23 

31000 

31000 


MJ 


40034BS 

FINAL STOP 

51614 

01622 

45 

00000 

40034 

T174 

B 



OCTAL TAPE INDICATOR 

51615 

01623 

00 

00000 

00000 

T175 

RJ 

T177 

T177 

SET NONSHIFT SWITCH 

51616 

01624 

37 

01640 

01640 


TP 

T182 

W+15 

STORE BOSS EXIT IN W+15 

51617 

01625 

11 

01664 

02517 


TP 

W+5 

A 

LOOK UP V ADDRESS IN 

51620 

01626 

11 

02 505 

32000 


RPU 

30 

L + 2 

TABLE BEGINNING IN T182 

51621 

01627 

75 

20036 

01631 


EJ 

T182+1 

L + 4 

+1 IF NOT THERE SRORE 

51622 

01630 

43 

01665 

01634 

T176 

SP 

L (0 ) 


DEF WARNING IN ERROR 

51623 

01631 

31 

02115 

00000 


TP 

ILL 

T13 8 

INDICATOR AND SET 

51624 

01632 

11 

02052 

01477 


MJ 


T178 

ACCUMULATOR TO ZERO 

51625 

01633 

45 

00000 

01643 


SN 

Q 

15 

COMPUTE LOCATION + 1 

51626 

01634 

33 

31000 

00017 


SA 

T1 81 


OF ENTRY IN TABLE THAT 

51627 

01635 

32 

01657 

00000 


AT 

T181+1 

L + l 

MATCHES AND STORE IT 

51630 

01636 

35 

01660 

01637 


TP 

T182+1 

Q 

IN Q 

51631 

01637 

11 

01665 

31000 

T177 

RJ 

L 

L + l 

ONE SHOT SWITCH 

51632 

01640 

37 

01640 

01641 


OT 

T181+2 

A 

MASK OFF LOW ORDER 6 

51633 

01641 

51 

01661 

32000 


ZJ 

L+l 

T176+1 

DIGITS IF ZERO - 

51634 

01642 

47 

01643 

01632 

T178 

RJ 

T43 

T43-2 

AND STORE IN W+16 

51635 

01643 

37 

00514 

00512 


MJ 


T12 

EXIT 

51636 

01644 

45 

00000 

00174 


RJ 

T177 

T175+1 

ENTER FOR IN BOSS 

51637 

01645 

37 

01640 

01625 


LG 

Q 

21 

SHIFT Q 15 PLACES TO RT 

51640 

01646 

55 

31000 

00025 

T179 

MJ 


T177+1 

EXIR 

51641 

01647 

45 

00000 

01641 

RJ 

T 69 

T68 

TRANSLATE V ADDRESS 

51642 

01650 

37 

01013 

01007 


TP 

T138 

W+19 

STORE ERROR INDICATOR 

51643 

01651 

11 

01477 

02523 


SA 

T181+3 


ADD DUMMY COMMAND 

51644 

01652 

32 

01662 

00000 

T180 

RJ 

T87 

T86 

STORE IN W+14 W+15 W+16 

51645 

01653 

37 

01143 

01140 

MJ 


T12 

EXIT TO STORE ROUTINE 

51646 

01654 

45 

'00000 

00174 
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SP 

T182—1 


STORE DUMMY IN A 

MJ 


T 180 

EXIT 


20036B ) 


BOSS TABLE TALLY 

TP 

T182+1 

Q 

DUMMY COMMAND 

B 

777777 


V MASK 

RJ 

X2X 

OPTABL 

DUMMY COMMAND 

RJ 

X2X 

BOSS 

DUMMY COMMAND 



X2X 

BOSS EXIT 

XS3 

FLDEC 


FLDEC 


PSUEDO+2 

PSUEDO +6 

IN OUT 

XS3 

OCTAL 


OCTAL 


PSUEDO 

PSUEDO+4 

IN OUT 

XS3 

FIXBIN 


SIXBIN 


PSUEDO +8 

PSUEDO+12 

IN OUT 

XS3 

VARBIN 


VARBIN 


PSUEDO+10 

PSUEDO+14 

IN OUT 

XS3 

VARCAR 


VARCAR 


PSUEDO+18 


IN 

XS3 

ALPHAN 


ALPHAN 



PSUEDO+16 

OUT 

XS3 

FWD 


FWD 



PSUEDO+37 

OUT 

XS3 

BACK 


BACK 



PSUEDO+39 

OUT 

XS3 

BINARY 


BINARY 



PSUEDO+26 

OUT 

XS3 

XS3 


XS3 



PSUEDO+28 

OUT 

XS3 

W 


W 



PSUEDO+29 

OUT 

XS3 

X 


X 



PSUEDO+31 

OUT 

XS3 

Y 


Y 



PSUEDO+33 

OUT 

XS3 

Z 


Z 



PSUEDO+35 

OUT 

XS3 

TABLE 


TABLE 


PSUEDO+41 


IN 


31 

51647 01655 

51650 01656 

51651 01657 

51652 01660 

51653 01661 

51654 01662 

51655 01663 

51656 01664 

51657 01665 

51660 01666 

51661 01667 

51662 01670 

51663 01671 

51664 01672 

51665 01673 

51666 01674 

51667 01675 

51670 01676 

51671 01677 

51672 01700 

51673 01701 

51674 01702 

51675 01703 

51676 01704 

51677 01705 

51700 01706 

51701 01707 

51702 01710 

51703 01711 

51704 01712 

51705 01713 

51706 01714 

51707 01715 

51710 01716 

51711 01717 

51712 01720 

51713 01721 

51714 01722 


31 

01663 

00000 

45 

00000 

01653 

00 

20036 

00000 

11 

01665 

31000 

00 

00007 

77777 

37 

17633 

17634 

37 

17633 

17634 

00 

00000 

17633 

31 

46273 

02600 

00 

17727 

17733 

51 

26662 

44600 

00 

17725 

17731 

31 

34722 

53450 

00 

17735 

17741 

70 

24542 

53450 

00 

17737 

17743 

70 

24542 

62454 

00 

17747 

00000 

24 

46523 

32450 

00 

00000 

17745 

31 

71270 

00000 

00 

00000 

17772 

25 

24264 

50000 

00 

00000 

17774 

25 

34502 

45473 

00 

00000 

17757 

72 

65060 

00000 

00 

00000 

17761 

71 

00000 

00000 

00 

00000 

17762 

72 

00000 

00000 

00 

00000 

17764 

73 

00000 

00000 

00 

00000 

17766 

74 

00000 

00000 

00 

00000 

17770 

66 

24254 

63000 

00 

17776 

00000 
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OPT ABL 
X2X 

PSUEDO 

BOSS 

SORT 


T2 00 


T201 


T202 


T203 


T204 


EQLS 

17634B) 


EQLS 

17633B) 


EQLS 

17725B ) 


EQLS 

17634B) 


SP 

T12 8 


SS 

RPD 


AT 

L (100000B) 

Q 

RA 

T210+1 

Q 

RA 

T210A 

Q 

RA 

T203 

Q 

RA 

T208+2 

Q 

RA 

T209 

Q 

RA 

T209+2 

Q 

RA 

T210+2 

Q 

RA 

T210A-2 

Q 

RA 

T210A+1 

Q 

LQ 

Q 

21 

RA 

T212 

Q 

RA 

T210 

Q 

TP 

L(l) 

TEMP 

RA 

K 

L (1) 

LA 

TEMP 

1 

TJ 

Q 

L-2 

TV 

Q 

T211+1 

IJ 

T211+1 

L+l 

TP 

L (1) 

Q 

SP 

T211 


RPV 


L + 2 

AT 

L (100000B) 

1BUF 

TV 

T211+1 

T212+1 

TU ' 

T210A-1 

T204+3 

TU 

T211+1 

T205+1 

TU 

T211+1 

T206+1 

TV 

T211 

T205+1 

TV 

T203+1 

T206+1 

TU 


T205-1 

RA 

L—1 

L(100000B 5 

QT 

FILL 

A 


DEFINITION FOR BOSS 
DEFINITION FOR BOSS 
DEFINITION FOR BOSS 
DEFINITION FOR BOSS 
SUBTRACT HIGH ORDER 2 
FROM TAG TALLY AND 
LEAVE IN U PART OF Q 
THIS IS A CLOSED SUB¬ 
ROUTINE THAT WILL SORT 
THE TAG TABLE BEGINNING 
AT THE SYMBOLIC LOCATON 
TT INTO AN ASCENDING 
SEQUENCE WHERE EACH 
ENTRY IS TREATED AS A 
36 BIT NUMBER WITHOUT 
SIGN THE LOCATIONS 
ASSOCIATED WITH THE 
ENTRIES IN THE TT TABLE 
BEGIN IN THE SYMBOLIC 
LOCATION TL THE TL 
TABLE IS 1024 WORDS 
LONG AND CONTAINS BOTH 
STORAGE AND EXECUTION 
LOCATIONS IN U AND V 
AND IS LOCATED 1025 
CELLS AWAY FROM THE 
TAGS THEY ARE ASSOCIATD 
WITH THIS ROUTINES 
REQUIRES 2 BUFFERS EACH 
EQUAL IN LENGTH TO THE 
SIZE OF THE TAG TABLE 
THESE BUFFERS ARE NAMED 
1BUF AND 2 BUF THE 
SORTED TABLES ARE LEFT 
IN THEIR ORIGINAL 
BUFFERS AT THE TERMI¬ 
NATION OF THE SORT 
THE TL TABLE IS TESTED 


51715 

01723 

31 

01465 

00000 

51716 

01724 

34 

02075 

00000 

51717 

01725 

35 

02120 

31000 

51720 

01726 

21 

02016 

31000 

51721 

01727 

21 

02023 

31000 

51722 

01730 

21 

01752 

31000 

51723 

01731 

21 

02006 

31000 

51724 

01732 

21 

02011 

31000 

51725 

01733 

21 

02013 

31000 

51726 

01734 

21 

02017 

31000 

51727 

01735 

21 

02021 

31000 

51730 

01736 

21 

02024 

31000 

51731 

01737 

55 

31000 

00025 

51732 

01740 

21 

02030 

31000 

51733 

01741 

21 

02015 

31000 

51734 

01742 

11 

02113 

02525 

51735 

01743 

21 

00767 

02113 

51736 

01744 

54 

02525 

00001 

51737 

01745 

42 

31000 

01743 

51740 

01746 

16 

31000 

02027 

51741 

01747 

41 

02027 

01750 

51742 

01750 

11 

02113 

31000 

51743 

01751 

31 

02026 

00000 

51744 

01752 

75 

10000 

01754 

51745 

01753 

35 

02120 

05430 

51746 

01754 

16 

02027 

02031 

51747 

01755 

15 

02022 

01762 

51750 

01756 

15 

02027 

01766 

51751 

01757 

15 

02027 

01773 

51752 

01760 

16 

02026 

01766 

51753 

01761 

16 

01753 

01773 

51754 

01762 

15 

00000 

01764 

51755 

01763 

21 

01762 

02120 

51756 

01764 

51 

30000 

32000 



SYMBOLIC LANGUAG 


T205 

ZJ 

L+l 


TP 

FILL 


RA 

L-l 


TU 

A 


I J 

T212+1 

T 2 06 

MJ 



TP 

FILL 


RA 

L-l ' 


TU 

A 


I J 

T212+1 

T207 

TV 

T206+1 


SP 

T212 


SS 

T20 8 


AT 

T213 


RP 


T208 

TP 

2 BUF 


OJ 

L+l 


RPB 



TU 

1BUF 


SP 

T211 

T209 

RPV 



AT 

L (1 ) 


RPB 



TU 

2BUF 

T210 

TP 

T213+1 


RJ 

1BUF 


RPB 



TP 

2BUF+1 


RPU 



RA 

1BUF 

T210A 

RJ 

1BUF 


RPB 



TP 

2BUF+1 

T211 

TP 

TT—1 
1BUF 

T212 

TP 

2BUF 


B 


ASSEMBLY PROGRAM ( 

T206+1 

FILL 

L(1000018) 
T206+1 
T 2 04+3 
T207 
FILL 

L(100001B} 
T205+1 
T204+3 
T 2 08 

15 
L + l 
L + 2 
FILL 
T 2 03 + 2 
L + 2 
2BUF 

L+2 
1BUF 
L + 2 
1 BUF 
1 BUF 
1 BUF 
L+2 
TT 
L + 2 

T212+2 

1BUF 

FILL 

TL 

2BUF 

1BUF 


1025 


2- CORE ) 
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BIT BY BIT BEGINNING 
IN THE LOW ORDER POSTON 
WHEN A ZERO IS FOUND 
THE CORRESPONDING DUMMY 
TP COMMAND IS PLACED 
IN 1BUF WHEN A ONE 
IS FOUND THE CORRESP¬ 
ONDING TP DUMMY IS 
PLACED IN THE 2BUF 
WHEN ONE BIT OF EACH 
ENTRY IN THE TL TABLE 
HAS BEEN TESTED THE 
TP DUMMIES REPRESENTING 
ONES ARE MOVED TO THE 
1BUF BUFFER IMMEDIATELY 
FOLLOWING THE ZERO TP 
DUMMIES WHEN ALL 36 
BITS OF EACH ENTRY HAVE 
BEEN TESTED A MJ COMM¬ 
AND IS STORED AFTER THE 
LAST DUMMY TP COMMAND 
THE DUMMY TP COMMANDS 
ARE THEN OBEYED THESE 
WILL SHUFFLE THE TABLES 
INTO THEIR PROPER SEP- 
UENCE THE APROXIMATE 
SORTING SPEED IS 1.3 
SECONDS PER 100 ENTRIES 
A MAXIMUM OF 1024 
ENTRIES MAY BE SORTED 
THE ENTRY POINT FOR THIS 
SORT ROUTINE IS AT THE 
SYMBOLIC LOCATION SORT 
THE EXIT POINT IS 
AT THE SYMBOLIC LOCA¬ 
TION T210A + 1 
WORKING STORAGE 
TAG LOCATION - TAG TABLE 


51757 01765 47 01766 01773 

51760 01766 11 30000 30000 

51761 01767 21 01766 02162 

51762 01770 15 32000 01773 

51763 01771 41 02031 01762 

51764 01772 45 00000 01777 

51765 01773 11 30000 30000 

51766 01774 21 01773 02162 

51767 01775 15 32000 01766 

51770 01776 41 02031 01762 

51771 01777 16 01773 02004 

51772 02000 31 02030 00000 

51773 02001 34 02004 00017 

51774 02002 35 02033 02003 

51775 02003 75 00000 02005 

51776 02004 11 07431 30000 

51777 02005 44 02006 01754 

52000 02006 75 30000 02010 

52001 02007 15 05430 07431 

52002 02010 31 02026 00000 

52003 02011 75 10000 02013 

52004 02012 35 02113 05430 

52005 02013 75 30000 02015 

52006 02014 15 07431 05430 

52007 02015 11 02034 05430 

52010 02016 37 05430 05430 

52011 02017 75 30000 02021 

52012 02020 11 07432 11432 

52013 02021 75 20000 02023 

52014 02022 21 05430 02032 

52015 02023 37 05430 05430 

52016 02024 75 30000 30000 

52017 02025 11 07432 13433 

52020 02026 11 11431 07431 

52021 02027 00 05430 00000 

52022 02030 11 07431 05430 

52023 02031 00 00000 00000 

52024 02032 00 02001 00000 
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T213 

RPB 

MJ 

RDTP4 

B 

RWND4 

B 

MBACK 

B 

MBCK1 

B 

WTP5 

B 

RWND5 

B 

WTP6 

B 

RWND6 

B 

STAPE 

B 

NOP 

XS3 

DEC 

XS3 

OCT 

XS3 

DEF 

XS3 

ILL 

XS3 

DUP 

XS3 

EXP 

LI 320 

XS3 

E 

XS3 

S 

XS3 

EQLS 

XS3 

RSRV 

XS3 

SETL 

XS3 

END 

SIND 

XS3 

1S34 

B34 

L10B2 

B 

1S35 

B 

OMASK 

B 

XS3 

B 

LPCT 

B 

BTST 

B 

WDA 

RPD 

B 

Z3S 

B 

XS3Z 

B 

BLNKS 

B 


020006240000 

020020040000 

020007440000 

020007440001 

020004650000 

020020050000 

020014660000 

020020060000 

020060000000 

NOP 

DEC 

OCT 

DEF 

ILL 

DUP 

EXP 

1320 

E 

S 

EQLS 

RSRV 

SETL 

END 

1 

324464741135 
400000000000 
077770000000 
726500000000 
377737773777 
202020202020 
000100000000 
20001B} 
030303030303 
000303030303 
010101010101 


T208+1 

FILL 


READ INPUT TAPE 
REWIND INPUT TAPE 
MOVE INPUT TAPE BACK 
MOVE INPUT TAPE BACK 1 
WRITE OUTPUT TAPE 
REWIND OUTPUT TAPE 
WRITE OCTAL TAPE 
REWIND OCTAL TAPE 
STOP TAPE 

-NOP WARNING 

-DEC WARNING 

-OCT WARNING 

-DEF WARNING 

-ILL WARNING (BOSS) 

-—DUP WARNING 

-EXP WARNING 

DRUM FETCH CONSTANT 
E (TEST CONSTANT) 

S (TEST CONSTANT) 

EQLS (TEST CONSTANT) 

RSRV (TEST CONSTANT) 

SETL (TEST CONSTANT) 

END (TEST CONSTANT) 

STORAGE INDICATOR 

ONE SCALED 34 

LOG 10 BASE 2 SCALED 33 

ONE SCALED 35 

OPERATION MASK 

XS3 

LOOP COUNTER 

TEST FOR LETTERS A B C D 
OCTAL TAPE WORD ADDER 
REPEAT DUMMY 
SIX XS3 ZEROES 
FIVE XS3 ZEROES 
BLANKS 


52025 

02033 

75 

30000 

02005 

52026 

02034 

45 

00000 

30000 

52027 

02035 

02 

00062 

40000 

52030 

02036 

02 

00200 

40000 

52031 

02037 

02 

00074 

40000 

52032 

02040 

02 

00074 

40001 

52033 

02041 

02 

00046 

50000 

52034 

02042 

02 

00200 

50000 

52035 

02043 

02 

00146 

60000 

52036 

02044 

02 

00200 

60000 

52037 

02045 

02 

00600 

00000 

52.040 

02046 

00 

00005 

05152 

52041 

02047 

00 

00002 

73026 

52042 

02050 

00 

00005 

12666 

52043 

02051 

00 

00002 

73031 

52044 

02052 

00 

00003 

44646 

52045 

02053 

00 

00002 

76752 

52046 

02054 

00 

00003 

07252 

52047 

02055 

00 

02450 

00000 

52050 

02056 

30 

00000 

00000 

52051 

02057 

65 

00000 

00000 

52052 

02060 

30 

53466 

50000 

52053 

02061 

54 

65547 

00000 

52054 

02062 

65 

30664 

60000 

52055 

02063 

30 

50270 

00000 

52056 

02064 

00 

00000 

00000 

52057 

02065 

20 

00000 

00000 

52060 

02066 

32 

44647 

41135 

52061 

02067 

40 

00000 

00000 

52062 

02070 

07 

77700 

00000 

52063 

02071 

72 

65000 

00000 

52064 

02072 

37 

77377 

73777 

52065 

02073 

20 

20202 

02020 

52066 

02074 

00 

01000 

00000 

52067 

02075 

00 

20001 

00000 

52070 

02076 

03 

03030 

30303 

52071 

02077 

00 

03030 

30303 

52072 

02100 

01 

01010 

10101 



SYMBOLIC LANGUAGE ASSEMBLY PROGRAM ( 

PSTOP B 606060606060 
CPRINT XS3 CONST 

XS3 ANT P 
XS3 OOL 

UTPRNT XS3 UNDEF 

XS3 INED 
XS3 TAGS 

CONSTANT P 


2- CORE ) 


PAGE 30 OF 31 


PRINTER STOP 
{CONSTANT POOL) HEADING 
FOR SYMBOLIC OUTPUT 
LISTING 

(UNDEFINED TAG) HEADING 
FOR SYMBOLIC OUTPUT 
LISTING 

OOL L(2 OOOOOB ) 

L(170000B) 

L {11 ) 

L {1 ) 

L( 180 ) 

L (0 ) 

L{1980 5 
L E 6 ! 

L(100000B) 

L (2 ) 

L(1079) 
L(10B) 

L(1300000B) 

L (3 ) 

L (4 ! 

L(119) 

L (2 0 ) 

L (5 ) 

L(2400000B) 

L (9 5 
L(77B) 

L(12B) 

L(54B) 

L(67B) 

L(70B) 

L(2 5B) 
L(IOOOOB) 

L(46B) 

L(53B) 

L(31344646B ) 
L(77T77B) 


52073 02101 60 60606 06060 

52074 02102 00 26515 06566 

52075 02103 24 50660 00052 

52076 02104 51 51460 00000 

52077 02105 00 67502 73031 

52100 02106 34 50302 70000 

52101 02107 66 24326 50000 

52102 02110 00 00002 00000 

52103 02111 00 00001 70000 

52104 02112 00 00000 00013 

52105 02113 00 00000 OOOOl 

52106 02114 00 00000 00264 

52107 02115 00 00000 00000 

52110 02116 00 00000 03674 

52111 02117 00 00000 00006 

52112 02120 00 OOOOl 00000 

52113 02121 00 00000 00002 

52114 02122 00 00000 02067 

52115 02123 00 00000 00010 

52116 02124 00 00013 00000 

52117 02125 00 00000 00003 

52120 02126 00 00000 00004 

52121 02127 00 00000 00167 

52122 02130 00 00000 00024 

52123 02131 00 00000 00005 

52124 02132 00 00024 00000 

52125 02133 00 00000 00011 

52126 02134 00 00000 00077 

52127 02135 00 00000 00012 

52130 02136 00 00000 00054 

52131 02137 00 00000 00067 

52132 02140 00 00000 00070 

52133 02141 00 00000 00025 

52134 02142 00 00000 10000 

52135 02143 00 00000 00046 

52136 02144 00 00000 00053 

52137 02145 00 00313 44646 

52140 02146 00 00000 77777 
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END START 


2- CORE ) PAGE 31 OF 

L(30000B) 

L(32000B) 

L(31000B) 

L(64B) 

L(22B) 

L{40B) 

L (7 ) 

L(3 IB) 

L(200B) 

L(200002B ) 

L{4001 IB) 

L{100001B ) 

PROGRAM BEGINS AT START 


31 

52141 02147 00 00000 30000 

52142 02150 00 00000 32000 

52143 02151 00 00000 31000 

52144 02152 00 00000 00064 

52145 02153 00 00000 00022 

52146 02154 00 00000 00040 

52147 02155 00 00000 00007 

52150 02156 00 00000 00031 

52151 02157 00 00000 00200 

52152 02160 00 00002 00002 

52153 02161 00 00000 40011 

52154 02162 00 00001 00001 

50000 



ONE CORE VERSION OF SLAP 


The one-core version of the Symbolic Language Assembly Program differs from 
the two-core version as follows: 

I. No more than 4096 words of magnetic core storage are used. 

II. All tape operations are performed in fixed block mode. 

III. Input may be either on cards or on tape. 

A. Card input option. Entry point is the first word of the program. 

If a card mispick occurs, operation may be resumed by cycling the 

card into correct position and starting at location 00075* In assembling 
programs of more than 1152 instructions, an additional servo is used 
for intermediate data storage. 

B. Tape input option. Entry point is the third word of the program. 

IV. The program produces a symbolic XS3 tape only; no octal XS3 tape is 
written. 

V. The following maximum limits are in force: 

A. Number of tags - 768 

B. Number of undefined tags - 75 

C. Number of constants - 75 

D. Number of EQLS instructions in tape mode - 60 

in card mode - 30 

VI. The content of the Q-register may be used to specify the input servo 
(which is used as the intermediate servo in card mode) and the output 
servo. If the operation field is zero, the u-field contains a number 
from 1 to 10 inclusive, and the v-field contains a number from 1 to 10 
inclusive, then the input, and output servo numbers are taken from the 
u and v fields respectively. If not, servo 4 is used for input and 
servo 5 for output. 
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SETL 

500008) 

500008) 








RPB 

2000 

PASS 1 

CARD START 


50000 

77 

33720 

00010 


TP 

L+3 

PASS1 

BOOTSTRAP SLAP TO CORE 


50001 

11 

50004 

00010 


RPB 

2000 

T2 

TAPE START 


50002 

75 

33720 

00035 


TP 

L+l 

PASS1 



50003 

11 

50004 

00010 


SETL 


2130B5 







w 

RSRV 


21 

W STORAGES 






TEMP 

RSRV 


20 

TEMPORARY STORAGE 






CPT 

RSRV 


225 

CONSTANT POOL 






DTI 

RSRV 


25 

DUPLICATE TAG TABLE 






UT 

RSRV 


75 

UNDEFINED TAG TABLE 






TT 

RSRV 


769 

TAG TABLE 






TL 

RSRV 


769 

TAG LOCATION TABLE 






WT 

RSRV 


720 

INPUT-OUTPUT BUFFER 






WT2 

RSRV 


240 

PASS2 INPUT SECTION 






EB 

RSRV 


120 

EQLS COMMAND BUFFER 






1BUF 

EQLS 

WT 


FIRST SORT BUFFER 






2BUF 

EQLS 

TL 


SECOND SORT BUFFER 






DSTORE 

EQLS 

500008) 


DRUM STORAGE FOR CODING 






TLDRUM 

EQLS 

764 00B ) 


DRUM STORAGE DURING SORT 







SET L. 


108) 







PASS1 

TP 

T2+2 

T 8+4 

SET CARD EXIT 

50004 

0001C 

11 

00040 

00301 


SP 

Q 

21 

IF THE U AND V ADDRESSES 

500C5 

00011 

31 

31000 

00025 


LTL 


TEMP 

OF 0 ARE BOTH IN THE 

50006 

00012 


00000 

02155 


SP 

A 

15 

RANGE 1-10* USE THEM AS 

50007 

00013 

31 

32000 

00017 


LTL 


TEMP+3 

INPUT AND OUTPUT SERVO 

50010 

00014 

22 

00000 

02156 


SP 

L f 1 0 '> 


NUMBERS RESPECTIVELY# 

50011 

00015 

31 

02045 

00000 


TJ 

TEMP 

T1 

If NOT# USE SERVO 4 FOR 

50012 

00016 

42 

02155 

00031 


T J 

TEMP+1 

T1 

INPUT AND SERVO 5 FOR 

50013 

00017 

42 

02156 

00031 


LA 

TEMP 

12 

OUTPUT* 

o 0 014 

0002.0 

54 

02155 

00014 


ZJ 

L+l 

T1 


50015 

00021 

4? 

00022 

00031 


LA 

TEMP+1 

12 


50016 

00022 

54 

02156 

00014 


ZJ 

L+l 

T1 


50017 

00023 

47 

00024 

00031 


TP 

L( 1700008) 

Q 


50020 

00024 

11 

02046 

31000 


RPV 

5 

L+2 


50021 

00025 

75 

10005 

00027 


QS 

TEMP 

RDTP4 

SET UP INPUT SERVO NO 

50022 

00026 

53 

02155 

01777 


QS 

TEMP+1 

RWND5 

SET UP OUTPUT SERVO NO 

50023 

00027 

53 

02156 

01776 


QS 

TEMP+1 

WTP5 


50024 

00030 

53 

02156 

01775 
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T2 


RPV 

769 

L+2 

FILL TAG TABLE WITH 

50025 

00031 

75 

11401 

00033 



TP 

L-l 

TT 

LARGE ENTRIES 

50026 

00032 

11 

00031 

02706 



EF 


RDCARD 

START CARD READER 

50027 

00033 

17 

00000 

01774 



MJ 


RDCD 


50030 

00034 

45 

00000 

00041 

T2 


RJ 

T1 

PASS1+1 

TAPE START SET SERVOS 

50031 

00035 

37 

00031 

00011 



EF 


RDTP4 

START TAPE 

50032 

00036 

17 

00000 

01777 



MJ 


RDTP 


50033 

00037 

45 

00000 

00160 



MJ 


T8C 

CARD PRESET FOR T8+4 

50034 

00040 

45 

00000 

00321 

RDCD 

RPV 

60 

L+2 

CARD READ SUBROUTINE 

50035 

00041 

75 

10074 

00043 



TP 

L (0 S 

EB+60 

THIS LOOP READS ONE CARD 

50036 

00042 

11 

02047 

07704 



TP 

L(14B ) 

TEMP+13 

TRANSLATING THE 1ST 60 

50037 

00043 

11 

02050 

02172 



TU 

T3A-1 

T3 

COLUMNS INTO 60 OCTAL 

50040 

00044 

15 

00070 

00052 



TP 

L { 3 5 } 

TEMP+15 

NUMBERS STORED FROM 

50041 

00045 

11 

02051 

02174 



ERO 


Q 

EB+60 TO EB+119 

50042 

00046 

76 

00000 

31000 



ER1 


Q 

FOR EACH COLUMN A PUNCH 

50043 

00047 

76 

10000 

31000 



ER1 


TEMP+14 

IN THE 9 ROW ADDS 14 TO 

50044 

00050 

76 

10000 

02173 



QJ 

L + i 

L+2 

THE CORRESPONDING CELL 

50045 

00051 

44 

00052 

00053 

T 3 


RA 

EB+60 

TEMP+13 

LIKEWISE 8 ADDS 13* 

50046 

00052 

21 

07704 

02172 



RA 

L-l 

L £100000B 5 

7 ADDS 12* 6 ADDS 11* 

50047 

00053 

21 

00052 

02052 



IJ 

TEM C +15 

L-3 

5 ADDS 10* 4 ADDS 7* 

50050 

00054 

41 

02174 

00051 



RJ 

L 

L+l 

3 ADDS 6* 2 ADDS 5* 

50051 

00055 

37 

00055 

00056 



TP 

L t 23 ) 

TEMP+15 

1 ADDS 4, 0 ADDS 60* 

50052 

00056 

11 

02053 

02174 



TP 

TEMP+14 

Q 

11 ADDS 40* 12 ADDS 20. 

50053 

00057 

11 

02173 

31000 



RJ 

L—3 

T3-1 

THE RESULTING COLUMN 

50054 

00060 

37 

00055 

00051 



RS 

TEMP+13 

L {15 

TOTALS GIVE THE CORRECT 

50055 

00061 

23 

02172 

02054 



EJ 

L {3 5 

L+-4 

OCTAL XS3 VALUES FOR 

50056 

00062 

43 

02055 

00066 



TJ 

l_ f 17 B i 

RDCD+3 

ALL BUT 11 LEGAL KEY¬ 

50057 

00063 

42 

02056 

00044 



ST 

L(17B ! 

TEMP+13 

PUNCH CHARACTERS. THESE 

50060 

00064 

36 

02056 

02172 



ZJ 

RDCD+3 

T3A 

11 ARE TRANSLATED IN 

50061 

00065 

47 

00044 

00071 



TP 

L{60B} 

TEMP+13 

THE LOOP WHICH STARTS 

50062 

00066 

11 

02057 

02172 



MJ 


RDCD+3 

AT T4 • 

50063 

00067 

45 

00000 

00044 




EB+60 

WT 

USED FOR RESETS 

50064 

00070 

00 

07704 

05710 

T3 A 


SP 

EB+66 

6 

TEST FOR END INSTRUCTION 

50065 

00071 

31 

07712 

00006 



SA 

EB+67 

6 


50066 

00072 

32 

07713 

00006 



SA 

EB+68 

18 


50067 

00073 

32 

07714 

00022 



EJ 

END 

CDEND 


50070 

00074 

43 

02021 

00151 



EF 


RDCARD 

START RDR—MISPICK START 

50071 

00075 

17 

00000 

01774 



RP 

460 

L+2 

STALL FOR MISPICK IF 

50072 

00076 

75 

00714 

00100 
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LA 

L 

72 

THERE IS ONE 

50073 

00077 

54 

00077 

00110 

RJ 

\ 

w 

L + l 

ONE-SHOT SWITCH 

50074 

00100 

37 

00100 

00101 

TU 

T3 A-l 

T 4+4 

PRESET WORD FETCH 

50075 

00101 

15 

00070 

00106 

T 4 RPV 

10 

L + 2 

THIS LOOP CHANGES THE 

5007 6 

00102 

75 

10012 

00104 

TP 

L (0 ) 

W+l 

OCTAL TOTALS CORRESPOND 

50077 

00103 

11 

02047 

02131 

TP 

L {9) 

TEMP+14 

ING.TO THE 11 SPECIAL 

50100 

00104 

11 

02060 

02173 

TP 

L ( 5 ) 

TEMP+13 

KEYPUNCH CHARACTERS 

50101 

00105 

11 

02061 

02172 

LQ 

£8*5-60 

A 

INTO CORRECT XS3 CODES. 

50102 

00106 

55 

07704 

32000 

ZJ 

L + l 

T4A 

WHEN ONE OF THESE OCTAL 

50103 

00107 

47 

00110 

00137 

OT 

L(148) 

A 

TOTALS IS ENCOUNTERED 

50104 

00110 

51 

02050 

32000 

ZJ 

T4A 

L + l 

CONTROL GOES TO THE 0 

50105 

00111 

47 

00137 

00112 

LQ 

Q 

34 

20 40 OR 60 BANK ACCORD 

50106 

00112 

55 

31000 

00042 

QT 

L {14B ) 

A 

INGLY AND ADJUSTS IT* 

50107 

00113 

51 

02050 

32000 

LQ 

Q 

2 

NO SPECIAL PROVISION IS 

50110 

00114 

55 

31000 

00002 

QA 

L ( 3 ) 

A 

MADE FOR ILLEGAL PUNCH 

50111 

00115 

52 

02055 

32000 

AT 

L + l 

L + l 

COMBINATIONS 

50112 

00116 

35 

00117 

00117 

RJ 

L 

L + l 

GO TO 0 20 40 OR 60 BANK 

50113 

00117 

37 

00117 

00120 

RA 

Q 

L (3 5 

0 BANK. CHANGE 100 TO 23 

50114 

00120 

21 

31000 

02055 

RA 

Q 

L C 3} 

OR 101 TO 21 

50115 

00121 

21 

31000 

02055 

RS 

Q 

L(638 ) 

OR 102 TO 17 

50116 

00122 

23 

31000 

02062 

MJ 


T4A 

DEPENDING ON ENTRY POINT 

50117 

00123 

45 

00000 

00137 

RA 

r\ 

w 

L { 2 ) 

20 BANK* CHANGE 20 TO 63 

50120 

00124 

21 

31000 

02063 

RA 

r\ 

VA 

L{413 5 

OR 21 TO 62 

50121 

00125 

21 

31000 

02064 

MJ 


T4A 

DEPENDING ON ENTRY POINT 

50122 

00126 

45 

00000 

00137 

MJ 


T4A 

DUMMY JUMP 

50123 

00127 

45 

00000 

00137 

RS 

r> 

L { 17B! 

40 BANK. CHANGE 40 TO 02 

50124 

00130 

23 

31000 

02056 

RS 

rs 

W 

L ( 20B 5 

OR 41 TO 22 

50125 

00131 

23 

31000 

02065 

RA 

o 

Ltl) 

OR 42 TO 43 

50126 

00132 

21 

31000 

02054 

MJ 


T4A 

DEPENDING ON ENTRY POINT 

50127 

00133 

45 

00000 

00137 

RS 

Q 

L { 518 } 

60 BANK* CHANGE 60 TO 03 

50130 

00134 

23 

31000 

02066 

MJ 


L + l 

OR 61 TO 55 

50131 

00135 

45 

00000 

00136 

RS 

Q 

L { 4 5 

OR 62 TO 56 

50132 

00136 

23 

31000 

02067 

T4A LA 

W+l 

6 

THIS PART OF THE LOOP 

50133 

00137 

54 

02131 

00006 

AT 

Q 

W + l 

PACKS THE 60 CORRECT 

50134 

00140 

35 

31000 

02131 

RA 

T 4+4 

L(100000B S 

XS3 CODES STORED FROM 

50135 

00141 

21 

00106 

02052 

I J 

TEMP+13 

T 4+4 

EB+60 ON INTO 10 WORDS 

50136 

00142 

41 

02172 

00106 

RA 

T4A 

L(10000085 

W+l TO W+10. THE CARD 

50137 

00143 

21 

00137 

02052 

RA 

T4A+1 

L {1 ) 

INSTRUCTION IS NOW 

50140 

00144 

21 

00140 

02054 
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IJ 

TEMP+14 

T 4+3 

READY FOR PROCESSING 

50141 

00145 

41 

02173 

00105 


RS 

T4A 

L f12OOOOOB) 

EXACTLY AS IF IT HAD 

50142 

00146 

23 

00137 

02070 


RS 

. T4A+1 

LflOJ 

BEEN READ FROM TAPE 

50143 

00147 

23 

00140 

02045 


MJ 


T5-1 


50144 

00150 

45 

00000 

00240 

CDEND 

RJ 

L-l 

T 4-1 

TRANSLATE END INSTRUCTN 

50145 

00151 

37 

00150 

00101. 


RJ 

T 8 

T8 

TRANSFER END TO WT BFR 

50146 

00152 

31 

C0275 

00275 


TP 

T8+4 

A 

TEST FOR FULL DRUM 

50147 

00153 

11 

00301 

32000 


EJ 

T2 + 3 

BADBK-2 

NO TRANSFR GROUP TO DRUM 

50150 

00154 

43 

00040 

00204 


RJ 

T9B 

T9A 

WRITE LAST BLOCK 

50151 

00155 

37 

00355 

00342 


EF 


RWND4 

REWIND 4 

50152 

00156 

17 

00000 

02003 


MJ 


PASS2 

GO TO SECOND PASS 

50153 

00157 

45 

00000 

00360 

RDTP 

RPV 

20 

L+2 

TAPE SUBROUTINE 

50154 

00160 

75 

10024 

00162 


ER1 


W+l 

READ IN BLOCKETTE 

50155 

00161 

76 

10000 

02131 


TP 

W+2 

A 


50156 

00162 

11 

02132 

32000 


EJ 

END 

TPEND 

TEST FOR END INSTRUCTION 

50157 

00163 

43 

02021 

00172 


RA 

T136 

L {1 ) 

BUMP BLOCKETTE COUNTER 

50160 

00164 

21 

01544 

02054 


TJ 

L {6 ) 

L+4 

TEST FOR BLOCK 

50161 

00165 

42 

02071 

00171 


ERO 


A 

IF SO CHECK PARITY 

50162 

00166 

76 

00000 

32000 


Z J 

BADBK 

L+l 

IF BAD BLOCK» JUMP DOWN 

50163 

00167 

47 

00206 

00170 


RA 

T136B 

L(l) 

BUMP BLOCK COUNTER 

50164 

00170 

21 

0154S 

02054 


MJ 


T5-1 

PROCEED TO PROCESSING 

50165 

00171 

45 

00000 

00240 

TPENO 

RJ 

T8 

T8 

TRANSFER END TO WT BFR 

50166 

00172 

37 

00275 

00275 


TV 

T2+2 

RDTP+5 

SET TO AVOID PROCESSING 

50167 

00173 

16 

00037 

00165 


RJ 

RDTP+9 

RDTP+4 

SET TO COMPLETE BLOCK 

50170 

00174 

37 

00171 

00164 


EF 


STAPE 

STOP TAPE 

50171 

00175 

17 

00000 

02004 


RS 

T136B 

L{192 ) 

IF DRUM IS FULL MOVE 

50172 

00176 

23 

01546 

02072 


SJ 

L+5 

L+l 

TAPE BACK FOR SECOND 

50173 

00177 

46 

00204 

00200 


ZJ 

L+l 

L+4 

PASS. 

50174 

00200 

47 

00201 

00204 


AT 

MBACK 

MBACK 

IF NOT» JUMP TO 

50175 

00201 

35 

02001 

02001 


EF 


MBACK 

TRANSFER LAST INSTRUCT 

50176 

00202 

17 

00000 

02001 


MJ 


PA5S2 

IONS TO DRUM 

50177 

00203 

45 

00000 

00360 


RJ 

T8D+2 

T8D+2 


50200 

00204 

37 

00331 

00331 


MJ 


PA5S2 

60 TO SECOND PASS 

50201 

00205 

45 

00000 

00360 

8ADBK 

EF 


MBCKl 

MOVE BACK ONE BLOCK 

50202 

00206 

17 

00000 

02000 


RS 

T136A 

L(5) 

RESET INSTRUCTION COUNTR 

50203 

00207 

23 

01545 

02061 


TV 

T3A-I 

T 8 + 1 

RESET STORAGE INST 

50204 

00210 

16 

00070 

00276 


RS 

T5+2 

T128A 

RESET TAG AND LOCATION 

50205 

00211 

23 

00243 

01533 


RS 

T5A 

T128A 

STORAGE INSTRUCTIONS 

50206 

00212 

23 

00246 

01533 
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LQ 

T12 8 A 

15 


50207 

002 13 

55 

01533 

00017 

RS 

T12 8 

Q 

RESET TAG TALLY 

50210 

00214 

23 

01532 

3 10 C 0 

TJ 

T129 

L + 2 

TEST IF TOO MANY TAGS 

50211 

00215 

42 

01534 

00217 

MJ 


L + 2 

YES 

50212 

00216 

45 

00000 

00220 

TV 

T 6-2 

T 5 +1 

NO UNSET GIMMICK EXIT 

50213 

00217 

16 

00252 

00242 

RS 

T13 0 

T130A 

RESET EQUALS TALLY 

50214 

00220 

23 

01535 

01536 

LQ 

T130A 

1 


50215 

00221 

55 

01536 

00001 

RS 

T7+1 

Q 

RESET EQLS STORAGE INST 

50216 

00222 

23 

00266 

31000 

RS 

CPOOL+3 

T12 2 A 

RESET CONSTANT POOL 

50217 

00223 

23 

01047 

01524 

RS 

T127 

T122A 

STORAGE INSTRUCTIONS 

50220 

00224 

23 

01531 

01524 

LQ 

T122A 

1 

RESET TALLY + 1ST UNDEF 

50221 

00225 

55 

01524 

00001 

RS 

CPOOL+5 

Q 

ADDRESS 

50222 

00226 

23 

01051 

31000 

LQ 

Q 

14 


50223 

00227 

55 

31000 

00016 

RS 

T122 

Q 


50224 

00230 

23 

01523 

31000 

TJ 

T12 3 

L + 2 

TEST IF POOL IS FILLED 

50225 

00231 

42 

01525 

00233 

MJ 


L + 2 

YES 

50226 

00232 

45 

00000 

002 3 4 

TV 

L+4 

CPOOL+1 

NO RESET TO ACCEPT MORE 

50227 

00233 

16 

00237 

01045 

EF 


RDTP4 

START TAPE 

50230 

002 34 

17 

00000 

01777 

RP5 

2 

T8B+2 

RESTORE LOCATION CNTRS 

50231 

00235 

75 

30002 

00312 

TP 

T121A 

T120 

AND GO TO CLEAR COUNTS 

50232 

00236 

11 

01521 

01517 



CPOOL+3 

ADDRESS FOR CPOOL+1 

50233 

00237 

00 

00000 

01047 

RA 

T13 6 A 

LCD 

BUMP INSTRUCTION COUNTER 

50234 

00240 

21 

01545 

02054 

T5 RJ 

T 56 

T50 

TEST LOCATION FIELD FOR 

50235 

00241 

37 

01011 

00747 

ZJ 

L + l 

T 6 

TAG 

50236 

00242 

47 

00243 

002 54 

TP 

A 

TT 

STORE TAG IN TAG TABLE 

50237 

00243 

11 

32000 

02706 

RA 

L—l 

L (1 ) 

BUMP TAG STORE 

50240 

00244 

21 

00243 

02054 

SP 

T121 

15 

COMBINE STORAGE AND 

50241 

00245 

31 

01520 

00017 

T5A AT 

T120 

TL 

EXEC L CTRS INTO TL 

50242 

00246 

35 

01517 

04307 

RA 

L-l 

LCD 

BUMP L COUNTER STORE 

50243 

00247 

21 

00246 

02054 

RA 

T128A 

L ( 1 ) 

BUMP TAG COUNT 

50244 

00250 

21 

01533 

02054 

RA 

T 12 8 

L(100000B) 

BUMP TAG TALLY 

50245 

00251 

21 

01532 

02052 

TJ 

T12 9 

T 6 

TEST FOR TOO MANY TAGS 

50246 

00252 

42 

01534 

00254 

TV 

T5 + 1 

T 5 

GIMMICK EXIT 

50247 

00253 

16 

00242 

00241 

T 6 RJ 

T75 

T 74 

TEST FOR RSRV OR SETL 

50250 

00254 

37 

01225 

01222 

EJ 

EQLS 

T7 

TEST FOR EQLS 

50251 

00255 

43 

02015 

00265 

EJ 

XS3 

T7-2 

TEST FOR XS3 PSEUDO OP 

50252 

00256 

43 

02020 

00263 

EJ 

W+2 

L+2 

IF NEITHER CONTINUE TEST 

50253 

00257 

43 

02132 

00261 

MJ 


T 8 

GO TO STORE INSTRUCTION 

50254 

00260 

45 

00000 

00275 



SYMBOLIC LANGUAGE ASSEMBLY PROGRAM {ONE CORE) 


PAGE 6 OF 30 


T8 


T8B 


T8C 


RJ 

T56 

T51 

RJ 

T56 

T 52 

RPU 

2 

T 8 

RA 

T120 

L {1) 

RPB 

2 

L+2 

TP 

W+3 

EB 

TV 

T 5 A 

L + 2 

RS 

L+l 

L { 1 ) 

TN 

T7 + 1 


RA 

T7 + 1 

L {2 ) 

RA 

T130 

LC 1 ) 

RA 

T130A 

L {1) 

RPB 

10 

L+2 

TP 

W+ 1 

WT 

RA 

L-l 

L (10) 

TP 

T136A 

A 

MJ 


L + l 

TJ 

L {96 ) 

T 8 B 

EF 


STAPE 

RJ 

T 8 D +6 

T 8 D 

TJ 

L( 12 ) 

T8B-1 

TV 

T 8 + 5 

T 8 

EF 


RDTP4 

TP 

T136 

A 

TJ 

L { 6 ) 

RDTP 

TP 

L (0 ) 

T136 

TP 

LtO ) 

T128A 

TP 

L {0 ) 

T130A 

TP 

L (0) 

T122A 

TV 

T8+1 

T3A-1 

RPB 

2 

RDTP 

TP 

T12 0 

T121A 

TJ 

L (96 ) 

L + 4 

RJ 

T 8 D +6 

T 8 D 

TJ 

L {12 ) 

L+2 

TV 

L+2 

T8+4 

MJ 


RDCD 

T9 


TEST U FIELD FOR CONSTS 
TEST V FIELD FOR CONSTS 
BUMP LOC COUNTERS 
GO TO STORE INSTRUCTION 
STORE U ADDRESS OF EQLS 
INST INTO EQUALS BUFFER 
FOR TRANSLATION BETWEEN 
PASSES STORE ADDRESS 
OF THIS STORE IN TL 
TABLE 

BUMP EQUALS TALLY 
BUMP EQLS COUNT 
TRANSFER INSTRUCTION 
TO BUFFER 
BUMP STORAGE INST 
FETCH INSTRUCTION COUNT 
EXIT IF IN CARD MODE 
TEST FOR 96 INSTRUCTIONS 
YES STOP TAPE 
GO TO DRUM TRNSFR SUBRTN 
IS DRUM FULL 
YES SET GIMMICK EXIT 
START TAPE 
TEST FOR BLOCK END 
IF NOT RETURN TO READ 
CLEAR BLOCKETTE COUNTER 
CLEAR TAG COUNT 
CLEAR EQLS COUNT 
CLEAR CONSTANT COUNT 
SAVE STORAGE INSTRUCTION 
SAVE LOCATION COUNTERS 
AND RETURN TO READ 
TEST FOR 96 INSTRUCTIONS 
YES GO TO DM TNSFR SUBRT 
IS DRUM FULL 
SET EXIT TO T9 
BACK TO READ 
SETTING FOR EXIT 


50255 00261 37 01011 00752 

50256 00262 37 01011 00755 

50257 00263 75 20002 00275 

50260 00264 21 01517 02054 

50261 00265 75 30002 00267 

50262 00266 11 02133 07610 

50263 00267 16 00246 00271 

50264 00270 23 00271 02054 

50265 00271 13 00266 00000 

50266 00272 21 00266 02063 

50267 00273 21 01535 02054 

50270 00274 21 01536 02054 

50271 00275 75 30012 00277 

50272 00276 11 02131 05710 

50273 00277 21 00276 02045 

50274 00300 11 01545 32000 

50275 00301 45 00000 00302 

50276 00302 42 02073 00310 

50277 00303 17 00000 02004 

50300 00304 37 00335 00327 

50301 00305 42 02050 00307 

50302 00306 16 00302 00275 

50303 00307 17 00000 01777 

50304 00310 11 01544 32000 

50305 00311 42 02071 00160 

50306 00312 11 02047 01544 

50307 00313 11 02047 01533 

50310 00314 11 02047 01536 

50311 00315 11 02047 01524 

50312 00316 16 00276 00070 

50313 00317 75 30002 00160 

50314 00320 11 01517 01521 

50315 00321 42 02073 00325 

50316 00322 37 00335 00327 

50317 00323 42 02050 00325 

50320 00324 16 00326 00301 

50321 00325 45 00000 00041 

50322 00326 00 00000 00336 
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TV 

T149 

T8 + 1 

TP 

L (0 ) 

T136A 

RPP 

960 

L + 2 

TP 

WT 

DSTORE 

RA 

L-l 

L(960 ) 

RA 

T137 

L (1 3 

MJ 



TJ 

L (5 3 

RDCD 

TP 

T 98+2 

T3A+4 

TJ 

L (6) 

RDCD 

TV 

1149 

T 8 + 1 

TP 

L ( 5 ) 

T13 6 A 

EF 


WTP4 

RPV 

10 

L + 2 

E W1 


WT 

RP 

10 

L+2 

EW1 


L (0 3 

RA 

L-3 

L (10 3 

I J 

T13 6 A 

T9A+2 

TV 

T149 

T9A+3 

EF 


STAPE 

TP 

T1 + 2 

T3A+4 

RJ 

T3A+7 

T3A+4 

MJ 


RDCD 

MJ 


T 4 — 1 

TP 

T120 

T134 

TP 

T121 

T135 

TP 

L(1 OB ) 

T120 

TP 

L(10B) 

T121 

TP 

L (0 3 

SIND 

TU 

T 67+1 

T68 + 1 

TV 

T 69+3 

T 62“ 1 

TV 

T15 5 

T57-1 

RA 

T127 

T134 

RJ 

T210A+1 

SORT 

RJ 

T37 

EQUALS 

RJ 

T38 + 1 

T38 

RJ 

T27 

T26 


RESET STORAGE INST 
CLEAR INST COUNTER 
TRANSFER 96 INSTRUCTIONS 

TO DRUM 

BUMP DSTORE INSTRUCTION 
BUMP DSTORE TALLY 
EXIT 

TEST FOR FIVE CARDS 
CANCEL READER START 
TEST FOR SIX CARDS 
YES RESET STORAGE INST 
THIS LOOP WRITES ONE 
BLOCK ON THE INPUT TAPE 
FOR USE AS INPUT TO 
PASS 2 AFTER THE DSTORE 
BUFFER IS EXHAUSTED. 
EACH BLOCKETTE CONTAINS 
TEN WORDS OF XS3 DATA 
(REPRESENTING THE FIRST 
60 COLUMNS OF A CARD) 
AND TEN WORDS OF BLANKS 
RESET READER START 
START READER 
BACK TO READ 
DUMMY FOR T3A+4 
STORE LAST EXECUTION ADD 
STORE LAST STORAGE ADDR 
RESTORE EXECUTION COUNTR 
RESTORE STORAGE COUNTER 
CLEAR (SIND) INDICATOR 
CHANGE EXIT FOR PASS 2 
CHANGE EXIT FOR PASS 2 
CHANGE EXIT FOR PASS 2 
COMPUTE 1ST UDT ADDRESS 
SORT TAG TABLE 
TRANSLATE EGLS COMMANDS 
TEST FOR DUPLICATE TAGS 
FETCH 36 INSTRUCTIONS 


50323 

00327 

16 

01555 

00276 

50324 

00330 

11 

02047 

01545 

5032 5 

00331 

75 

31700 

00333 

50326 

00332 

11 

05710 

50000 

50327 

00333 

21 

00332 

02074 

50330 

00334 

21 

01547 

02054 

50331 

00335 

45 

00000 

00000 

50332 

00336 

42 

02061 

00041 

50333 

00337 

11 

00357 

00075 

50334 

00340 

42 

02071 

00041 

50335 

00341 

16 

01555 

00276 

50336 

00342 

11 

02061 

01545 

50337 

00343 

17 

00000 

02002 

50340 

00344 

75 

10012 

00346 

50341 

00345 

77 

10000 

05710 

50342 

00346 

75 

00012 

00350 

50343 

00347 

77 

10000 

02047 

50344 

00350 

21 

00345 

02045 

50345 

00351 

41 

01545 

00344 

50346 

00352 

16 

01555 

00345 

50347 

00353 

17 

00000 

02004 

50350 

00354 

11 

00033 

00075 

50351 

00355 

37 

00100 

00075 

50352 

00356 

45 

00000 

00041 

50353 

00357 

45 

00000 

00101 

50354 

00360 

11 

01517 

01542 

50355 

00361 

11 

01520 

01543 

50356 

00362 

11 

02075 

01517 

50357 

00363 

11 

02075 

01520 

50360 

00364 

11 

02047 

02022 

50361 

00365 

15 

01170 

01172 

50362 

00366 

16 

01200 

01067 

50363 

00367 

16 

01563 

01021 

50364 

00370 

21 

01531 

01542 

50365 

00371 

37 

01764 

01660 

50366 

00372 

37 

00524 

00507 

50367 

00373 

37 

00526 

00525 

50370 

00374 

37 

00506 

00500 
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RPV 

9 

L+2 

SET STORAGES W+ll - W+19 

50371 

00375 

75 

10011 

00377 


TP 

BLNKS 

W+ll 

TO BLANKS 

50372 

00376 

11 

02035 

02143 


RPB 

1C 

L+2 

BRING ONE INSTRUCTION 

50373 

00377 

75 

30012 

00401 

T10A 

TP 

WT2 

W+l 

TO W STORAGES 

50374 

00400 

11 

07230 

02131 


RA 

L-l 

L{12000008) 

BUMP STORE COMMAND 

50375 

00401 

21 

00400 

02070 


TP 

BLNKS 

T138 

CLEAR ERROR INDICATOR 

50376 

00402 

11 

02035 

01550 


SP 

7120 


STORE EXECUTION ADDRESS 

50377 

00403 

31 

01517 

00000 


TP 

A 

W+l 3 

IN W+l 3 TEST IF EQUAL 

50400 

00404 

11 

32000 

02145 


EJ 

T121 

L + 2 

TO STORAGE ADDRESS IF 

50401 

00405 

43 

01520 

00407 


TP 

T121 

W+l 2 

NOT STORE STORAGE- W+12 

50402 

00406 

11 

01520 

02144 

Til 

RJ 

T75 

T7& 

TEST FOR RSRV OR SETL 

50403 

00407 

37 

01225 

01222 


EJ 

BLNKS 

T13 

IF SETL OR EOLS CLEAR 

50404 

00410 

43 

02035 

00420 


EJ 

EQLS 

T13 

W+12 ON 

50405 

00411 

43 

02015 

00420 


EJ 

W+2 

L + 3 

TEST FOR NONE OF A80VE 

50406 

00412 

43 

02132 

00415 

T12 

RJ 

T25 

T21 

STORE INSTRUCTION IN BUF 

50407 

00413 

37 

OJ0477 

00447 


SJ 

TIO 

T10+1 

TRANSLATE NEXT INSTRUCTN 

50410 

00414 

46 

00374 

00375 


RA 

T120 

L{ 1 5 

BUMP LOCATION COUNTER 

50411 

00415 

21 

01517 

02054 


RA 

T121 

L {15 

BUMP LOCATION COUNTER 

50412 

00416 

21 

01520 

02054 


MJ 


OFETCH 

GO TO OPERATION LOOKUP 

50413 

00417 

45 

00000 

00537 

T13 

RPV 

6 

T12 

CLEAR W+12 TO W+17 FOR 

50414 

00420 

75 

10006 

00413 


TP 

BLNKS 

W+12 

EQLS OR SETL COMMAND 

50415 

00421 

11 

02035 

02144 

TIB 

TV 

T15C 

T19 

SECOND PASS READ ROUTINE 

50416 

00422 

16 

01536 

00431 


TP 

L(5) 

TEMP+14 

SET BLOCK COUNT 

50417 

00423 

11 

02061 

02173 


EF 


RDTP4 

START TAPE 

50420 

00424 

17 

00000 

01777 


TP 

L (5 ) 

TEMP+15 

SET BLOCKETTE COUNT 

50421 

00425 

11 

02061 

02174 


RPV 

20 

L + 2 

READ BLOCKETTE 

50422 

00426 

75 

10024 

00430 


ER1 


W+l 


50423 

00427 

76 

10000 

02131 


RPB 

10 

L+2 

TRANSFER 10 WORDS TO 

50424 

00430 

75 

30012 

00432 

T19 

TP 

VI +1 

WT2 

BUFFER 

50425 

00431 

11 

02131 

07230 


RA 

L-l 

LflO) 

BUMP STORE 

50426 

00432 

21 

00431 

02045 


TP 

W+2 

A 

TEST FOR END INSTRUCTION 

50427 

00433 

11 

02132 

32000 


EJ 

END 

T19 A 


50430 

00434 

43 

02021 

00443 


1 J 

TEMP+15 

T18 + 4 

TEST FOR END OF BLOCK 

50431 

00435 

41 

02174 

00426 


ERO 


A 

IF SO TEST FOR BAD BLOCK 

50432 

00436 

76 

00000 

32000 


ZJ 

L + l 

T2 0-2 

IF GOOD BLOCK JUMP DOWN 

50433 

00437 

47 

00440 

00444 


EF 


MBCK1 

IF BAD BLOCK MOVE TAPE 

50434 

00440 

17 

00000 

02000 


RS 

T19 

L ( 60 ) 

BACK RESET STORAGE ADD 

50435 

00441 

23 

00431 

02076 


MJ 


T18 + 2 

RESS AMD REREAD 

5Q436 

Q 0 4 4 2 

45 

00000 

00424 
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119 A 

R ‘ 

1 v ^ 

L + 1 

T19+4 

SET TO EXIT AT BLOCK END 

50437 

00443 

37 

00444 

00435 


T f 

TEKP+1 A 

T18 + 3 

IF GOOD BLOCK TEST FOR 

50440 

00444 

41 

02173 

00425 


EF 


STAPE 

SIX BLOCKS IF SO EXIT 

50441 

00445 

17 

00000 

02004 

T2 0 

. ;j 




50442 

00446 

45 

00000 

00000 

T21 

RPB 

20 

u+ 2 

BLOCK TRANSFER ONE INSTR 

50443 

00447 

75 

30024 

00451 


T P 

V? 

WT 

UCTION TO WT BUFFER 

50444 

00450 

11 

02130 

05710 


RA 

L~1 

LI 20) 

BUMP STORE COMMAND 

50445 

00451 

21 

00450 

02077 


RA 

T13 9 

L { 15 

BUMP BLOCKETTE TALLY 

50446 

00452 

21 

01551 

02054 


* sJ 

L { 6 ) 

T2 5 

TEST FOR FULL BLOCK 

50447 

00453 

42 

02071 

00477 

T2 2 

T D 

L ( 0 ! 

T139 

RESET BLOCKETTE INDEX 

50450 

00454 

11 

02047 

01551 


RA 

T140 

L {15 

BUMP BLOCK COUNT 

50451 

00455 

21 

01552 

02054 


? J 

L (6 ' 

"25 

TEST FOR SIX 3LOCKS 

50452 

00456 

42 

02071 

00477 


TV 

T149 

T21 + 1 

RESET STORE COMMAND 

50453 

00457 

16 

01555 

00450 


ru 

T149 

T10A 

RESET STORE COMMAND 

50454 

00460 

15 

01555 

00400 


PC 

T140 

L( 1 ) 

BLOCK TALLY MINUS ONE 

50455 

00461 

23 

01552 

02054 


pc 


WTP.5 

START OUTPUT TAPE 

50456 

00462 

17 

00000 

01775 


TP 

L { 5 ) 

TEMP+10 

SET BLOCKETTE INDEX 

50457 

00463 

11 

02061 

C2167 

123 

RPB 

20 

L+2 

MOVE 20 WORDS TO W STOR 

50460 

00464 

75 

30024 

00466 


TP 

WT 

W 

AGES FOR WRITING 

50461 

00465 

11 

05710 

02130 


RA 

L-l 

L!2400000B) 

BUMP STORE COMMAND 

50462 

00466 

21 

00465 

02100 


RJ 

TUB 

XS3CON 

CONVERT COMMAND TO XS-3 

50463 

00467 

37 

01516 

01465 


RPV 

20 

L + 2 

WRITE ONE BLOCKETTE ON 

50464 

00470 

75 

10024 

00472 


EW1 


W 

SYMBOLIC OUTPUT TAPE 

50465 

00471 

77 

10000 

02130 

T24 

IJ 

TEMP+1 0 

T23 

TEST FOR FULL BLOCK 

50466 

00472 

41 

02167 

00464 


I J 

T 1 4 0 

T23-1 

TEST BLOCK COUNT 

50467 

00473 

41 

01552 

00463 


EF 


STAPE 

STOP OUTPUT TAPE 

50470 

00474 

17 

00000 

02004 


TU 

T25 

T23+1 

RESET LOAD COMMAND 

50471 

00475 

15 

00477 

00465 


SN 

L 


SET A NEGATIVE 

50472 

00476 

33 

00476 

00000 

T25 

MJ 

WT 


EXIT 

50473 

00477 

45 

05710 

00000 

T26 

RPB 

360 

L+2 

BRING 36 INSTRUCTIONS 

50474 

00500 

75 

30550 

00502 


TP 

DSTORE 

WT2 

FROM DRUM TO WT2 BUFFER 

50475 

00501 

11 

50000 

07230 


RA 

L-l 

1360 

BUMP FETCH 

50476 

00502 

21 

00501 

02032 


RA 

T141 

LID 

BUMP TALLY 

50477 

00503 

21 

01553 

02054 


TJ 

L { 32 ) 

L + 2 

TEST IF DRUM EMPTY 

50500 

00504 

42 

02101 

00506 


TP 

T151 

T10 

CHANGE FETCH INSTRUCTION 

50501 

00505 

11 

01557 

00374 

T27 

MJ 




50502 

00506 

45 

00000 

00000 

EQUALS 

RS 

T 13 0 

l m 

TEST IF EQLS COMMANDS 

50503 

00507 

23 

01535 

02054 


SJ 

T37 

L + i 

ARE PRESENT IF SO TEST 

50504 

00510 

46 

00524 

00511 
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T2 8 

RA 

T30 

L ( 1 ) 

TL TABLE FOR NEGATIVE 

50505 

00511 

21 

00522 

02054 


RA 

T29 

L{1OOOOOB) 

NUMBERS when ONE IS 

50506 

00512 

21 

00513 

02052 

T29 

TP 

TL-1 

A 

FOUND COMPLEMENT IT AND 

50507 

00513 

11 

04306 

32000 


SJ 

L + l 

T28 

USE THE V-ADDRESS TO 

50510 

00514 

46 

00515 

00511 


SN 

A 

15 

FETCH THE U-ADDRESS OF 

50511 

00515 

33 

32000 

00017 


TU 

A 

L+2 

THE ORIGINAL EQLS COM¬ 

50512 

00516 

15 

32000 

00520 


RPR 

2 

L + 2 

MAND FROM ITS STORAGE- 

50513 

00517 

75 

30002 

00521 


TP 


W+3 

PLACE IN THE EQUALS 

50514 

00520 

11 

00000 

02133 


RJ 

T69 

T67 

BUFFER 

50515 

00521 

37 

01175 

01167 

T30 

TP 

A 

TL-1 

TRANSLATE THIS U FIELD 

50516 

005 22 

11 

32000 

04306 


IJ 

T130 

T28 

AND STORE IN TL TABLE 

50517 

005 23 

41 

01535 

00511 

13 7 

MJ 



EXIT 

50520 

00524 

45 

00000 

00000 

T38 

TP 

TT 

A 

TEST TAG TABLE FOR 

50521 

00525 

11 

02706 

32000 


EJ 

T1 


DUPLICATE ENTRIES 

50522 

00526 

43 

00031 

00000 


EJ 

TT+1 

T39 

STORE ALL DUPLICATES 

50523 

00527 

43 

02707 

00533 

T38A 

TU 

L—1 

T38 

IN DTT TABLE BUMP 

50524 

00530 

15 

00527 

00525 


RA 

L-2 

L(100000B) 

DUPLICATE TAG LOOKUP 

50525 

00531 

21 

00527 

02052 


MJ 


T38 

BY ONE FOR EACH ENTRY 

50526 

00532 

45 

00000 

00525 

T39 

TP 

A 

DTT 

IN DTT TABLE THIS 

50527 

00533 

11 

32000 

02542 


RA 

L-l 

L {1 ) 

TEST ENDS WHEN A DUMMY 

50530 

00534 

21 

00533 

02054 


RA 

T62 A 

L(1OOOOOB) 

FILL ENTRY IS FOUND IN 

50531 

00535 

21 

01072 

02052 


MJ 


T38A 

TT TABLE 

50532 

00536 

45 

00000 

00530 

OFETCH 

LQ 

W+2 

Q+33 

MASK OFF OPERATION INTO 

50533 

00537 

55 

02132 

31041 


OT 

OMASK 

TEMP 

TEMP AND ACCUMULATOR 

50534 

00540 

51 

02026 

02155 


TU 

OTABLE-1 

T39A 

RESET TJ COMMAND- 

50535 

00541 

15 

00562 

00545 


TJ 

OTABLE+38 

L+2 

TEST IF GREATER THAN 1 RA 

50536 

00542 

42 

00631 

00544 


TU 

L-l 

T39A 

YES SET TJ COMMAND 

50537 

00543 

15 

00542 

00545 


RPU 

61 

L+2 

LOOK UP MNEMONIC OPERAT 

50540 

00544 

75 

20075 

00546 

T39A 

TJ 

OTABLE 

L + l 

ION IN OTABLE AND STORE 

50541 

00545 

42 

00563 

00546 


SN 

Q 

15 

ITS OCTAL EQUIVALENT 

50542 

00546 

33 

31000 

00017 


SA 

T142 


IN W+14 IF EXACT ENTRY 

50543 

00547 

32 

01554 

00000 


TU 

T39A 

T152 

IS NOT IN TABLE STORE 

50544 

00550 

15 

00545 

01560 


AT 

T152 

L + l 

NEAREST OCTAL EQUIV¬ 

50545 

00551 

35 

01560 

00552 


TP 

OTABLE 

G 

ALENT AND STORE NOP 

50546 

00552 

11 

00563 

31000 


GT 

OMASK 

A 

WARNING IN W+17 THEN 

50547 

00553 

51 

02026 

32000 


SS 

TEMP 


EXIT AS SPECIFIED BY 

50550 

00554 

34 

02155 

00000 


ZJ 

L+l 

L+2 

V ADDRESS OF CORRESP¬ 

50551 

00555 

47 

00556 

00557 


TP 

NOP 

W+17 

ONDING ENTRY IN OTABLE 

50552 

00556 

11 

02005 

02151 
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TV 

Q 

L+3 

SP 

G 

21 

LT 


W +14 

MJ 

OTABLE 

T41 


30300B) 

T41 

01 

213 0 0 B ) 

T40 

02 

46635 B ) 

741 

02 

50000B ) 

T47 

02 

514 0 0 B ) 

T47 

02 

62^-378 ) 

T 46 

02 

6262 78 ) 

141 

02 

77073B) 

T41 

03 

031178 ) 

T 41 

03 

04443B ) 

T41 

03 

05000B5 

T160 

03 

05476B ) 

T41 

03 

07177B ) 

T41 

03 

100COB 5 

T 91 + 1 

03 

12464B) 

T41 

03 

127678 ) 

T41 

03 

13402B 3 

741 

03 

14766B) 

T41 

03 

152C1B ) 

T41 

03 

154Q5B) 

T41 

03 

16565B) 

T41 

03 

44441B ) 

T41 

03 

45214B3 

T41 

04 

62454B ) 

T41 

04 

65355B) 

T41 

04 

66622B } 

T41 

04 

72472B 3 

T41 

04 

74445B} 

T41 

04 

7 5 2 71B 3 

T 41 

04 

76556B3 

T41 

05 

052Q4B 3 

T41 

05 

25461B 3 

T41 

05 

26557B) 

T41 


ONE CORE) PAGE 11 OF 

THIS ADDRESS SPECIFIES 

WHICH TRANSLATION ROU¬ 
TINE IS TO BE USED 
EXIT AS DESCRIBED ABOVE 
BLANK OPERATION 
ZERO OPERATION 
OCTAL OPERATION 
AT 

B- OCTAL CONSTANT 

B9 OCTAL CONST 

CALL SUBROUTINE 

CC 

DV 

EF 

EJ 

END 

ER 

EW 

F- FLOATING DECIMAL 

FA 

FD 

FI 

FM 

FP 

FR 

FS 

IJ 

IP 

LA 

LQ 

LT 

MA 

MJ 

MP 

MS 

NP 

PR 

PS 


30 


50553 

00557 

16 

31000 

00562 

50554 

00560 

31 

31000 

00025 

50555 

00561 

22 

00000 

02146 

50556 

00562 

45 

00563 

00000 

50557 

00563 

00 

00000 

00665 

50560 

00564 

00 

30300 

00665 

50561 

00565 

01 

21300 

00661 

50562 

00566 

02 

46635 

00665 

50563 

00567 

02 

50000 

00726 

50564 

00570 

02 

51400 

00726 

50565 

00571 

02 

62437 

00717 

50566 

00572 

02 

62627 

00665 

50567 

00573 

02 

77073 

00665 

50570 

00574 

03 

03117 

00665 

50571 

00575 

03 

04443 

00665 

50572 

00576 

03 

05000 

01565 

50573 

00577 

03 

05476 

00665 

50574 

00600 

03 

07177 

00665 

50575 

00601 

03 

10000 

01353 

50576 

00602 

03 

12464 

00665 

50577 

00603 

03 

12767 

00665 

50600 

00604 

03 

13402 

00665 

50601 

00605 

03 

14766 

00665 

50602 

00606 

03 

15201 

00665 

50603 

00607 

03 

15405 

00665 

50604 

00610 

03 

16565 

00665 

50605 

00611 

03 

44441 

00665 

50606 

00612 

03 

45214 

00665 

50607 

00613 

04 

62454 

00665 

50610 

00614 

04 

65355 

00665 

50611 

00615 

04 

66622 

00665 

50612 

00616 

04 

72472 

00665 

50613 

00617 

04 

74445 

00665 

50614 

00620 

04 

75271 

00665 

50615 

00621 

04 

76556 

00665 

50616 

00622 

05 

05204 

00665 

50617 

00623 

05 

25461 

00665 

50620 

00624 

05 

26557 

00665 
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05 

2 6 7 6 3 B ) 

741 

PU 

50621 

00625 

05 

26763 

00665 

05 

3 2 4 5 2 B I 

T41 

QA 

50622 

00626 

05 

32452 

00665 

05 

34444B ) 

T41 

QJ 

50623 

00627 

05 

34444 

00665 

05 

36553B5 

141 

OS 

50624 

00630 

05 

36553 

00665 

05 

36651B ) 

T41 

QT 

50625 

00631 

05 

36651 

00665 

05 

4242 IB 1 

T 41 

RA 

50626 

00632 

05 

42421 

00665 

05 

4443TB3 

T 41 

RJ 

50627 

00633 

05 

44437 

00665 

05 

45275B ) 

T41 

RP 

50630 

00634 

05 

45275 

00665 

05 

46523B ) 

T41 

RS 

50631 

00635 

05 

46523 

00665 

06 

47773p 1 

T41 

NO OP DUMMY 

50632 

00636 

06 

47723 

00665 

06 

514005 ) 

T9 9—1 

STATED POINT 

50633 

00637 

06 

51400 

01443 

06 

52432B3 

T41 

SA 

50634 

00640 

06 

52432 

00665 

06 

53174B S 

T41 

SF 

50635 

00641 

06 

53174 

00665 

06 

54446B} 

T 41 

SJ 

50636 

00642 

06 

54446 

00665 

06 

55033B! 

T41 

SN 

50637 

00643 

06 

55033 

00665 

06 

55231B S 

T41 

SP 

50640 

00644 

06 

55231 

00665 

06 

56534B 1 

T41 

ss 

50641 

00645 

06 

56534 

00665 

06 

566365 i 

T 4 1 

ST 

50642 

00646 

06 

56636 

00665 

06 

64442 B ) 

{ 4 j_ 

TJ 

50643 

00647 

06 

64442 

00665 

06 

6471?B] 

T 4 I 

TM 

50644 

00650 

06 

64712 

00665 

06 

65013 B 1 

T41 

TN 

50645 

006 51 

06 

65013 

00665 

06 

6521 16 5 

T 41 

TP 

50646 

00652 

06 

65211 

00665 

06 

6671 58 ) 

T 41 

TU 

50647 

00653 

06 

66715 

00665 

06 

67016B ) 

T41 

TV 

50650 

00654 

06 

67016 

00665 

06 

75203B) 

T41 

UP 

50651 

00655 

06 

75203 

00665 

07 

26500B } 

T49A 

XS3 

50652 

00656 

07 

26500 

00744 

07 

44447B) 

T 41 

ZJ 

50653 

00657 

07 

44447 

00665 

07 

77747B1 

T41 

ILLEGAL OP 

50654 

00660 

07 

77747 

00665 

TP 

W+2 

Q 

CONVERT OCTAL OPERATION 

50655 

00661 

11 

02132 

31000 

RJ 

T81 

T80+1 

TO BINARY AND STORE IN 

50656 

00662 

37 

01270 

01252 

TP 

BLNKS 

T138 

W+l4 CLEAR ERROR 

50657 

00663 

11 

02035 

01550 

TP 

A 

W+l 4 

INDICATOR 

50660 

00664 

11 

32000 

02146 

RJ 

T 69 

T67 

TRANSLATE U FIELD TO 

50661 

00665 

37 

01175 

01167 

TP 

T138 

W+l 8 

BINARY AND STORE IN W 

50662 

00666 

11 

01550 

02152 

TP 

BLNKS 

T138 

+15 STORE ERROR INDIC¬ 

50663 

00667 

11 

02035 

01550 

TP 

A 

W+l 5 

ATOR IN W+l8 AND CLEAR 

50664 

00670 

11 

32000 

02147 

RJ 

L 

L + l 

ONE SHOT SWITCH 

50665 

00671 

37 

00671 

00672 

RJ 

T 69 

T68 

TRANSLATE V FIELD AND 

50666 

00672 

37 

01175 

01171 
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TP 

T13 8 

W+l 9 

STORE IN W+l6 STORE 

50667 

00673 

11 

01550 

02153 


TP 

A 

W+l 6 

ERROR INDICATOR IN W+l9 

50670 

00674 

11 

32000 

02150 

T43 

RJ 

j_ 

L+l 

ONE SHOT SWITCH 

50671 

00675 

37 

00675 

00676 


TP 

W+2 

Q 

TEST THIRD POSITION OF 

50672 

00676 

11 

02132 

31000 


LG 

G 

IS 

OPERATION FIELD IF 

50673 

00677 

55 

31000 

00022 


GT 

L(T7B } 

A 

NON -OCTAL TEST FOR 

50674 

00700 

51 

02102 

32000 


TJ 

L{12B ) 

T45 

FOLLOWING CHARACTERS 

5067 5 

00701 

42 

02045 

00713 


E J 

LI54B } 

T 44+1 

R 

50676 

00702 

43 

02103 

00711 


EJ 

L S 67B 5 

T 44 

U 

50677 

00703 

43 

02104 

00710 


EJ 

L{70B) 

T 44+1 

V 

50700 

00704 

43 

02105 

00711 


EJ 

L(25B 5 

T 44-1 

B 

50701 

00705 

43 

02106 

00707 


MJ 


T12 

JUMP TO STORE 

50702 

00706 

45 

00000 

00413 


RA 

W+15 

L(10000B 5 

BUMP U 5Y 10000 

50703 

00707 

21 

02147 

02107 

T44 

RA 

W+15 

L{100008} 

BUMP U BY 10000 

50704 

00710 

21 

02147 

02107 


RA 

W+15 

L{ 10000 B' 

BUMP U BY 10000 

50705 

00711 

21 

02147 

02107 


MJ 


T 12 

JUMP TO STORE 

50706 

00712 

45 

00000 

00413 

T45 

SS 

LS3 ) 

12 

IF OCTAL SUBTRACT 3 

50707 

00713 

34 

02055 

00014 


SJ 

T 12 

L + l 

IF MINUS JUMP TO STORE 

50710 

00714 

46 

00413 

00715 


AT 

W+15 

W+15 

ADD DIGIT TO HIGH U 

50711 

00715 

35 

02147 

02147 


M j 


T 12 

JUMP TO STORE 

50712 

00716 

45 

00000 

00413 

T46 

RJ 

T 69 

T 6 “ 

FOR CALL LOOK UP U 

50713 

00717 

37 

01175 

01167 


T P 

A 

Tf VjP + 9 

FIELD IN TAG TABLE AND 

50714 

00720 

11 

32000 

02166 


SA 

— * 4, i 


GENERATE RJ SUBR+2 

50715 

0 Q 7 2 1 

32 

0 2 06 3 

00000 


RJ 

T42 

T41 + 1 

SU9R IN BINARY STORE 

50716 

00722 

7 

00671 

00666 


SP 

TEMP+9 


IN W+l 4 W+15 W+l 6 FOR 

50717 

00723 

.7 JL 

02166 

ooooc 


RJ 

T43 

T42 + 2 

OUTPUT 

50720 

00724 

37 

00675 

00673 


MJ 


T1 2 

JUMP TO STORE 

50721 

00725 

45 

00000 

00413 

T47 

TP 

W+3 

G 

POR BINARY CONSTANTS 

50722 

00726 

11 

02133 

31000 


RJ 

T81 

T80+1 

CONVERT FIRST HALF OF U 

50723 

00727 

37 

01270 

01252 


TP 

W+4 

Q 

CONVERT 2ND HALF OF U 

50724 

00730 

11 

02134 

31000 


RJ 

T 81 

T80+2 

AND COMBINE WITH FIRST 

50725 

00731 

37 

01270 

01253 


TP 

A 

TEMP+6 

STORE IN TEMP+6 

50726 

00732 

11 

32000 

02163 


TP 

W+2 

G 

CONVERT THE SECOND AND 

50727 

00733 

11 

02132 

31000 

T48 

LG 

0 

6 

THIRD DIGITS OF THE 

50730 

00734 

55 

31000 

00006 


RJ 

Tg 8 

T 8 2 

OPERATION TO BINARY 

50731 

00735 

37 

01310 

01271 


TV 

A 

L+l 

AND STORE IN SHIFT INST 

50732 

00736 

16 

32000 

00737 


SP 

TEMP+6 


SCALE .BINARY CONSTANT 

50733 

0073" 

31 

Cu 163 

ooooo 


RJ 

T87 

T 86 

AND STORE IN W+l4- W+l 6 

50734 

007^0 

37 

01325 

01322 
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TP 

L(0 ) 

W+17 

CLEAR WARNING 

50735 

00741 

11 

02047 

02151 


TP 

T138 

W+l 8 

STORE ERROR INDICATOR 

50736 

00742 

11 

01550 

02152 

T49 

MJ 


T 12 

JUMP TO STORE 

50737 

00743 

45 

00000 

00413 

14 9 A 

^ rs 

cd h' 

W+3 


FOR PSEUDO XS-3 QPERATON 

50740 

00744 

31 

02133 

00000 


RJ 

T37 

T 86 

BREAK FIRST HALF OF U 

50741 

00745 

37 

01325 

01322 


M J 


T12 

INTO W+l4 W+15 AND W+16 

50742 

00746 

45 

00000 

00413 

15 0 

TU 

T15 0 

T 5 3 

SET UP T53 AND T54 

50743 

00747 

15 

01556 

00757 


TU 

L + l 

T54 

TO TEST IF A TAG IS 

50744 

00750 

15 

00751 

00763 


MJ 

L (0 ) 

T53 

1 IN TAG FIELD 

50745 

00751 

45 

02047 

00757 

T 5 1 

TU 

T153 

T53 

SET UP T53 AND T54 

50746 

00752 

15 

01561 

00757 


TU 

L + l 

T 5 4 

TO DETERMINE THE CONT¬ 

50747 

00753 

15 

00754 

00763 


MJ 

W+4 

T 53 

ENTS OF U 

50750 

00754 

45 

02134 

00757 

T 5 2 

TU 

T154 

T 5 3 

SET UP T53 AND T54 

50751 

00755 

15 

01562 

00757 


TU 

T15 5 

T 54 

TO TEST V FIELD 

50752 

00756 

15 

01563 

00763 

T53 

TP 


Q 

TEST IF FIELD CONTAINS 

50753 

00757 

11 

00000 

31000 


QT 

PSTOP 

A 

NON-NUMERIC CHARACTERS 

50754 

00760 

51 

02036 

32000 


ZJ 

L + l 

T 56 

IF NOT EXIT IF SO 

50755 

00761 

47 

00762 

01011 


SP 

Q 

36 

PLACE ENTIRE FIELD IN 

50756 

00762 

31 

31000 

00044 

15 4 

SA 



A LEFT AND A RIGHT 

50757 

00763 

32 

00000 

00000 


TP 

LPCT 

TEMP+9 

STORE LOOP COUNTER 

50760 

00764 

11 

02027 

02166 


LTL 

6 

Q 

STORE 6 DIGITS IN Q 

50761 

00765 

22 

00006 

31000 


QJ 

L + l 

L + 6 

BEGIN TESTING FIELD FROM 

50762 

00766 

44 

00767 

00774 


QJ 

L + l 

T56+1 

THE LEFT UNTIL ONE OF 

50763 

00767 

44 

00770 

01012 


QJ 

T55 

L + l 

THE FOLLOWING SPECIAL 

50764 

00770 

44 

01004 

00771 


QJ 

T55 A 

L + l 

CHARACTERS IS FOUND 

50765 

00771 

44 

01006 

00772 


QJ 

L + l 

T 5 5 

+ - { 5 OR BLANK THEN 

50766 

00772 

44 

00773 

01004 


QJ 

T 56 

T55 

EXIT AT THIS POINT 

50767 

00773 

44 

01011 

01004 


QJ 

T55 

L + l 

THE ACCUMULATOR WILL 

50770 

00774 

44 

01004 

00775 


QJ 

L+4 

L + l 

APPEAR AS FOLLOWS < X S3 ) 

50771 

00775 

44 

01001 

00776 


QJ 

T55 

L + l 

+123 ABCDEF 

50772 

00776 

44 

01004 

00777 


QJ 

L + l 

T 56 

-123 ABCDEF 

50773 

00777 

44 

01000 

01011 


QJ 

T55 

T 56 

(1234B5 L 

50774 

01000 

44 

01004 

01011 


QJ 

L + l 

T 5 5 

(123! L 

50775 

01001 

44 

01002 

01004 


QJ 

L + l 

T 5 5 

} 1234B 

50776 

01002 

44 

01003 

01004 


QJ 

T57 

T 5 5 

) 12345671 

50777 

01003 

44 

01022 

01004 

T55 

LQ 

TEMP+9 

1 

TEST IF 12 CHARACTERS 

51000 

01004 

55 

02166 

00001 


QJ 

T 54+2 

T56 

HAVE BEEN TESTED 

51001 

01005 

44 

00765 

01011 

15 5 A 

QJ 

T55 

L + l 

IF A / 64 CHARACTER IS 

51002 

01006 

44 

01004 

01007 
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QJ 

T55 

L+l 

FOUND SET INDICATOR 

51003 

01007 

44 

01004 

01010 


TP 

L i 1 ! 

SIND 

TO ONE 

51004 

01010 

ii 

02054 

02022 

T 5 6 

MJ 



TEST EXIT 

51005 

01011 

45 

00000 

00000 


QJ 

T 55 

L + l 

IF } IS THE 1ST SPECIAL 

51006 

01012 

44 

01004 

01013 


QJ 

T55 

L + l 

CHARACTER FOUND THE 

51007 

01013 

44 

01004 

01014 


QJ 

L + l 

T55 

DIGITS TO THE LEFT ARE 

51010 

01014 

44 

01015 

01004 


QJ 

L + l 

T 5 5 

ASSUMED TO BE A DECIMAL 

51011 

01015 

4 4 

01016 

01004 


TU 

T 53 

L + l 

NUMBER UNLESS THE ) IS 

51012 

01016 

15 

0 0 7 5 7 

01017 


sp 

TEMP 4* 10 


PRECEDED BY A B THIS 

51013 

01017 

31 

0216 7 

r* r\ n CM 
KJ \J U v ’J 


RJ 

T S1 

TSO 

NUMBER IS CONVERTED TO 

51014 

010 20 

37 

01 2 7 0 

01 ? 51 


MJ 


T56 

BINARY AND LEFT IN A 

51015 

01021 

45 

o n n o .o 

01011 

T 5 7 

LTL 

6 

TEMP+5 

A LEFT PARENTHESIS WAS 

51016 

01022 

22 

0 0 0 0 6 

\J :2 .1 O £ 


LTR 


TEMP+6 

THE FIRST SPECIAL 

51017 

010 2 3 

22 

10000 

0 2 1 6 3 


TP 

BIST 

Q 

C H A R A C T L R r 0 U N D T H E 

51020 

01024 

ii 

02 030 

i or £■, r> 


OT 

T EMP + 5 

A 

INFORMATION TO THE 

ct, i n ? i 

01025 

51 

02 1 62 

Q : 4 A’ n 


ZJ 

T 5 8 

L + l 

RIGHT OF THIS CHARACTER 

51 02 2 

01026 

47 

01036 

1 Q‘- y ~? 


CT 

TEMP+6 

A 

IS ASSUMED TO BE EITHER 

51023 

01027 

51 

0 2 1 6 3 

3 2000 


ZJ 

T5 3 

L + l 

A DECIMAL OR OCTAL 

51024 

01030 

47 

01036 

01031 


T P 

TEMP+5 

Q 

CONSTANT AND IS TO BE 

51025 

01031 

11 

02162 

310 0 0 


RJ 

T83 

TS 2 

PLACED IN THE CONSTANT 

51026 

010 32 

37 

nnm 

H 't 


TP 

TEMP+6 

Q 

POOL IF A B IS PRESENT 

- 51027 

01033 

11 

02163 

31000 


RJ 

T83 

T82 + 1 

CONVERT AS A OCTAL 

51030 

01034 

37 

01310 

01272 


MJ 


CPOOL 

INTEGER IF NOT CONVERT 

51031 

01035 

45 

00000 

01044 

15 S 

TP 

TEMP+5 

Q 

AS A DECIMAL INTEGER 

51032 

01036 

11 

02162 

31000 


RJ 

T61 

T80+1 

IN EITHER CASE LEAVE 

51033 

01037 

37 

01270 

01252 


TP 

TEMP+6 

Q 

RESULT IN THE ACCUM 

51034 

01040 

11 

02163 

31000 


QJ 

CPOOL 

L + l 

ULATOR AND THEN GO TO 

51035 

01041 

44 

01044 

01042 


TP 

TEMP+6 

Q 

CPOOL TO FIND THE LOC¬ 

51036 

01042 

11 

02163 

31000 


RJ 

T81 

T80+2 

ATION FOR THIS CONSTANT 

51037 

01043 

37 

01270 

01253 

CPOOL 

TU 

T12 2 

L + i 

TEST IF CONSTANT HAS 

51040 

01044 

15 

01523 

01045 


RP 


L + 2 

ALREADY BEEN ENTERED 

51041 

01045 

75 

00000 

01047 


EJ 

CPT 

T 5 9 

INTO THE CONSTANT POOL 

51042 

01046 

43 

02201 

01062 


TU 

T 53 

L + 3 

IF SO GO TO COMPUTE LOC 

51043 

01047 

15 

00757 

01052 


TP 

A 

CPT 

IF NOT STORE IN POOL 

51044 

01050 

11 

32000 

02201 


RPR 

2 

L+2 

AND STORE SYMBOLIC 

51045 

01051 

75 

30002 

01053 


TP 

TEMP+10 

CPT+75 

CONSTANT FOR LATER 

51046 

01052 

11 

02167 

02314 


RA 

L-3 

L (1 5 

PRINTOUT BUMP STORE 

51047 

01053 

21 

01050 

02054 


RA 

L-2 

L { 2 5 

INSTRUCTIONS AND CONS- 

51050 

01054 

21 

01052 

02063 
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RA 

T127 

L ( 1 ) 

TANT TALLY AND COUNT 

51051 

O'l 0 5 5 

21 

01531 

02054 


RA 

T122 A 

LCD 

IF THE CONSTANT 

51052 

01056 

21 

01524 

02054 


RA 

T122 

L(100000B) 

POOL IS FILLED ALTER 

51053 

01057 

21 

01523 

02052 


TJ 

T123 

L+2 

REPEAT EXIT SO THAT ALL 

51054 

01060 

42 

01525 

01062 


TV 

CPOOL+2 

CPOOL+1 

NEW CONSTANTS WILL BE 

51055 

01061 

16 

01046 

01045 

T59 

SP 

T122 


IGNORED COMPUTE 

51056 

01062 

31 

01523 

00000 


LTL 

21 

A 

EXECUTION LOCATION OF 

51057 

01063 

22 

00025 

32000 


SS 

Q 


CONSTANT IN QUESTION 

51060 

01064 

34 

31000 

00000 


SS 

L(l) 


AND LEAVE IN ACCUM¬ 

51061 

01065 

34 

02054 

00000 


SA 

T134 


ULATOR 

51062 

01066 

32 

01542 

00000 


MJ 


T 56 

EXIT CHANGED FOR PASS 2 

51063 

01067 

45 

00000 

01011 

T6 2 

LT 


TEMP 

SAVE INCREMENT 

51064 

01070 

22 

00000 

02155 


LQ 

A 


STORE ENTRY IN Q AND A 

51065 

01071 

55 

32000 

00000 

T62A 

RPU 


L+4 

TEST IF THIS TAG IS IN 

51066 

01072 

75 

20000 

01076 


EJ 

DTT 

L + l 

DUPLICATE TAG TABLE 

51067 

01073 

43 

02542 

01074 


TP 

A 

Q 

RESTORE Q 

51070 

01074 

11 

32000 

31000 


TP 

DUP 

T138 

STORE DUP IN ERROR IND 

51071 

01075 

11 

02011 

01550 


EJ 

L(46B) 

T63B-3 

TEST FOR L 

51072 

01076 

43 

02110 

01141 


EJ 

L(24B 5 

T63A1 

TEST FOR A 

51073 

01077 

43 

02077 

01135 


EJ 

L{53B ) 

T63A1+2 

TEST FOR Q 

51074 

01100 

43 

02111 

0113 7 


EJ 

L(313446468) 

T63A1-2 

TEST FOR FILL 

51075 

01101 

43 

02112 

01133 


TP 

T63B+T 

T63 + 2 

THIS ROUTINE WILL LOOK 

51076 

01102 

11 

01145 

OHIO 


TV 

K 

T63+2 

UP THE TAG IN Q IN THE 

51077 

01103 

16 

01150 

OHIO 


TU 

T63B+2 

T63A-2 

TAG TABLE IF AN EQUAL¬ 

51100 

01104 

15 

01146 

01113 


TU 

T63A-2 

T63B 

ITY OCCURS THE LOCATION 

51101 

01105 

15 

01113 

01144 

T63 

IJ 

T63+2 

L + l 

ASSOCIATED WITH THAT 

51102 

01106 

41 

OHIO 

01107 


TJ 

T63B+1 

T63A 

TAG WILL BE LEFT IN THE 

51103 

01107 

42 

01145 

01115 


SP 

L(100000B) 


ACCUMULATOR IF NO 

51104 

OHIO 

31 

02052 

00000 


AT 

T63B 

L+2 

EQUALITY OCCURS A DEF 

51105 

01111 

35 

01144 

01113 


SP 

Q 


WARNING WILL BE STORED 

51106 

01112 

31 

31000 

00000 


SS 

TT 


IN THE ERROR INDICATOR 

51107 

01113 

34 

02706 

00000 


SJ 

T 63 

T63-1 

AND CONTROL SENT TO UND 

51110 

01114 

46 

01106 

01105 

16 3 A 

TU 

T63B 

L+2 

TAG TO STORE THIS TAG 

51111 

01115 

15 

01144 

01117 


TP 

Q 

A 

IN THE UNDEFINED TAG 

51112 

01116 

11 

31000 

32000 


EJ 

FILL 

L + 3 

TABLE IF NOT ALREADY 

51113 

01117 

43 

30000 

01122 


TP 

DEF 

T138 

THERE AND ASSIGN IT AN 

51114 

01120 

11 

02010 

01550 


MJ 


UNDTAG 

ADDRESS INCREMENTS AND 

51115 

01121 

45 

00000 

01201 


RA 

T63B 

T63B+3 

DECREMENTS ARE IGNORED 

51116 

01122 

21 

01144 

01147 
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TU 

A 

L + l 

FOR ALL UNDEFINED TAGS 

51117 

01123 

15 

32000 

01124 


TP 

FILL 

Q 

STORE LOCATION IN Q 

51120 

01124 

11 

30000 

31000 


SP 

SIND 


TEST STORAGE INDICATOR 

51121 

01125 

31 

02022 

00000 


ZJ 

L+l 

L + 3 

FOR ZERO 

51122 

01126 

47 

01127 

01131 


TP 

L { 0 ! 

SIND 

CLEAR INDICATOR 

51123 

01127 

11 

02047 

02022 


LQ 

0 

21 

SHIFT 0 21 FOR STORAGE 

51124 

01130 

55 

31000 

00025 


QT 

L (77777B) 

TEMP+3 

STORE LOCATION IN TEMP+3 

51125 

01131 

51 

02113 

02160 


MJ 


T 64 

EXIT TO INCREMENT TEST 

51126 

01132 

45 

00000 

01151 


T P 

L (300005) 

TEMP+3 

STORE 30000 FOR FILL 

51127 

01133 

11 

02114 

02160 


M J 


T64 

EXIT TO INCREMENT TEST 

51130 

01134 

45 

00000 

01151 

T 6 3 A1 

TP 

L(320008) 

TEMP+3 

STORE 32000 FOR A 

51131 

01135 

11 

02115 

02160 


MJ 


T 64 

EXIT TO INCREMENT TEST 

51132 

01136 

45 

00000 

01151 


T ? 

L( 310003) 

TEMP+3 

STORE 31000 FOR Q 

51133 

01137 

11 

02116 

02160 


IJ. i 


T 64 

EXIT TO INCREMENT TEST 

51134 

01140 

45 

00000 

01151 


SP 

T12 0 


STORE L COUNTER MINUS 

51135 

01141 

31 

01517 

00000 


ST 

L { 1 ) 

TEMP+3 

ONE INTO TEMP +3 

51136 

01142 

36 

02054 

02160 


MJ 


T 64 

EXIT TO INCREMENT TEST 

51137 

01143 

45 

00000 

01151 

T6 38 

SS 

FILL 


DUMMY TEST COMMAND 

51140 

01144 

34 

30000 

00000 


C D 

L(100000B5 


END OF LOOKUP LOOP TEST 

51141 

01145 

31 

02052 

00000 



TT 


ADDRESS OF FIRST TAG 

51142 

01146 

00 

02706 

00000 



769 


CELLS BETWEEN TT AND TL 

51143 

01147 

00 

01401 

00000 

K 

B 



TABLE LOOKUP COUNT 

51144 

01150 

00 

00000 

00000 

T64 

TP 

TEMP 

Q 

STORE INCREMENT IN Q 

51145 

01151 

11 

02155 

31000 


SP 

Q 


TEST IF NO INCREMENT 

51146 

01152 

31 

31000 

00000 


ZJ 

L+l 

T 66+1 

EXISTS 

51147 

01153 

47 

01154 

01165 


LQ 

Q 

6 

MASK OFF SIGN OF INCR¬ 

51150 

01154 

55 

31000 

00006 


QT 

L(77B) 

A 

EMENT INTO A 

51151 

0115 5 

51 

02102 

32000 

16 5 

EJ 

L(648 ) 

L-2 

IF / GET NEXT CHARACTER 

51152 

01156 

43 

02117 

01154 


EJ 

L {2 5 

L + 3 

TEST FOR MINUS SIGN 

51153 

01157 

43 

02063 

01162 


RJ 

TS3 

T82 

CONVERT POSITIVE INCRE¬ 

51154 

01160 

37 

01310 

01271 


MJ 


T66 

MENT LEAVE IN A 

51155 

01161 

45 

00000 

01164 


RJ 

TS3 

T 8 2 

CONVERT NEGATIVE INCRE¬ 

51156 

01162 

37 

01310 

01271 


TN 

A 

A 

MENT LEAVE IN A 

51157 

01163 

13 

32000 

32000 

166 

AT 

TEMP+3 

TEMP+3 

ADD EXECUTION LOCATION 

51160 

01164 

35 

02160 

02160 


SP 

TEMP+3 


TO INCREMENT AND LEAVE 

51161 

01165 

31 

02160 

00000 


MJ 



IN ACCUMULATOR 

51162 

01166 

45 

00000 

00000 

16 7 

RJ 

T56 

T 5 1 

CONVERT CONTENTS OF U 

51163 

01167 

37 

01011 

00752 


MJ 

L+3 

L + 2 

THEN JUMP TO ZERO TEST 

51164 

01170 

45 

01173 

01172 
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T68 

RJ 

T56 

T52 

CONVERT CONTENTS OF V 

51165 

01171 

37 

01011 

00755 


ZJ 

T69 

T69+1 

IF TAG IS PRESENT 

51166 

01172 

47 

0117 5 

01176 


RJ 

T 67-1 

T62 

LOOK UP EXECUTION LOC¬ 

51167 

01173 

37 

01166 

01070 


SP 

A ' 


ATION OF TAG AND LEAVE 

51170 

01174 

31 

32000 

00000 

T69 

MJ 



IN ACCUMULATOR AMD EXIT 

51171 

01175 

45 

00000 

COOOO 


EJ 

Q . 

T69 

TEST FOR BLANK FIELD 

51172 

0117 6 

43 

31000 

01175 


RJ 

T83 

T 8 2 

CONVERT DECIMAL INTEGER 

51173 

01177 

37 

01310 

01271 


MJ 


T69 

TO BINARY LEAVE IN A' 

51174 

01200 

45 

00000 

0117 5 

UNDTAG 

TU 

T125 

L + l 

SET UP REPEAT COMMAND 

51175 

01201 

15 

01527 

01202 


RP 


L + 2 

TEST IF UNDEFINED TAG 

51176 

01202 

7 5 

00000 

01204 

T 70 

EJ 

UT 

T72 

HAS BEEN STORED BEFORE 

51177 

01203 

43 

02 573 

01216 


TP 

A 

UT 

STORE UNDEFINED TAG 

51200 

01204 

11 

3 2 000 

02573 


RA 

L-l 

L (1) 

BUMP UNDEFINED TAG STORE 

51201 

01205 

21 

01204 

0205 4 


RA 

T12 5 

L ( 100000B) 

BUMP UNDEFINED TAG TALLY 

51202 

01206 

21 

01527 

0 2 0 5 2 


TJ 

T12 6 

L+2 

TEST FOR TOO MANY TAGS 

51203 

01207 

4 2 

0 1 5 3 0 

01211 


TV 

T70 

T70-1 

CHANGE REPEAT EXIT 

51204 

01210 

16 

01202 

01202 


SS 

RPD 


COMPUTE EXECUTION 

51205 

01211 

34 

02031 

C\ r. r- r- n 
VJ \j 

T71 

LTL 

21 

A 

ADDRESS OF UNDEFINED 

51206 

01212 

2 2 

0002 5 

A a a a A 
W *vJ 


SA 

T127 


TAG AND LEAVE IN ACCUM 

51207 

01213 

32 

01331 

A A A A A 

V..- '\J \J W 


TP 

DEF 

T13 8 

STORE DEF WARNING IN 

51210 

01214 

11 

02010 

015 50 


MJ 


T67-1 

ERROR INDICATOR EXIT 

. 51211 

01215 

45 

00000 

01166 

T72 

SN 

Q 

15 

IF UNDEFINED TAG IS 

51212 

01216 

33 

31000 

00017 


SA 

T125 

• 

ALREADY STORED COMPUTE 

51213 

01217 

32 

01527 

00000 


SS 

L(100000B) 


ITS EXECUTION ADDRESS 

51214 

012 2 0 

34 

02052 

00000 


MJ 


T71 

AND LEAVE IN ACCUM 

51215 

01221 

45 

00000 

01212 

T74 

TP 

W+2 

A 

TEST OPERATION FIELD FOR 

51216 

01222 

11 

0213 2 

32000 


EJ 

RSRV 

T77 

RSRV OR SETL PSEUDO 

51217 

01223 

43 

02016 

01244 


EJ 

SETL 

L+2 

INSTRUCTIONS 

512 20 

01224 

43 

02017 

01226 

T75 

MJ 



TO USE RJ T75 T74 

51221 

01225 

45 

00000 

00000 


TP 

W+3 

A 

IF SETL TEST IF U FIELD 

51222 

01226 

11 

02133 

32000 


EJ 

E 

L+3 

HAS SPECIAL TAG E 

51223 

01227 

43 

02013 

01232 


RJ 

T 69 

T 67 

NO TRANSLATE U FIELD 

51224 

012 30 

37 

01175 

01167 


ZJ 

L + 2 

L+3 

IF ZERO IGNORE IF NOT 

512 2 5 

012 31 

47 

012 3 3 

01234 


TP 

T 12 0 

A 

REPLACE STORAGE LOCATN 

51226 

01232 

11 

01517 

32000 


TP 

A 

T121 

COUNTER WITH U IF SO 

51227 

01233 

11 

32000 

01520 


TP 

W+5 

A 

REPLACE WITH EXEC LCTR 

51230 

012 34 

11 

02135 

32000 

T76 

EJ 

S 

L + 3 

TEST IF V FIELD IS S 

512 31 

012 3 5 

Lx. 3 

02014 

01240 


RJ 

T 69 

T68 

NO TRANSLATE V AND REP 

51232 

01236 

37 

01175 

01171 
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ZJ 

L+2 

L 4- 3 

TP 

T 121 

A 

TP 

A 

T1 20 

TP 

BLNKS 

A 

MJ 


T75 

RJ 

T 69 

T 67 

AT 

T12 1 

T121 

RJ 

T 69 

T 68 

AT 

T120 

T120 

MJ 


T75 

TP 

A 

Q 

TP 

L (0 1 

TEMP 

TP 

L ( 5 ) 

TEMP+1 

LQ 

Q 

6 

QT 

L i 77B) 

A 

ST 

L (3 ) 

TEMP+2 

S J 

T81-1 

L+l 

T J 

L { 8 ) 

L+4 

E J 

L ( 22B ) 

T 8 1-1 

TP 

-OCT 

T13 8 

M J 


L+4 

SP 

TEMP 

3 

AT 

T EMP+2 

TEMP 

I J 

TEMP+1 

T80+3 

SP 

TEMP 


MJ 

TP 

L {0 5 

TEMP 

TP 

L ( 5 S 

TEMP+2 

LO 

Q 

6 

QT 

L ' 77B ) 

A 

ST 

L (3 ) 

TEMP+1 

SJ 

T33-1 

L + l 

TJ 

L S1 0 ) 

L + 4 

EJ 

L ( 40B} 

T83-1 

TP 

DEC 

T1 3 8 

MJ 


T83-1 

SP . 

T EMP 

2 

SA 

TEMP 

1 


LACE EXECUTION L COUNTR 
YES REPLACE WITH STOR¬ 
AGE LOCATION COUNTER 
PUT DUMMY CODE IN A 
AND EXIT BACK TO T75 
IF RSRV ADD THE CONTENTS 
OF U AND V TO THE 
STORAGE AND EXECUTION 
LOCATION COUNTERS 
EXIT 

THIS IS A CLOSED SUB¬ 
ROUTINE THAT WILL CON¬ 
VERT THE FIVE HI ORDER 
OCTAL XS3 CHARACTERS 
IN A RIGHT TO BINARY 
AND LEAVE THE RESULT 
IN THE ACCUMULATOR 
THE CONVERSION WILL 
END AFTER 5 CHARACTERS 
HAVE BEEN CONVERTED OR 
A NON OCTAL CHARACTER 
HAS BEEN FOUND IF THIS 
CHARACTER IS NOT B OR 
BLANK A OCT WARNING 
WILL BE GIVEN 
EXIT 

THIS IS A CLOSED SUB¬ 
ROUTINE THAT WILL CON 
VERT THE FIVE HI ORDER- 
DECIMAL XS3 CHARACTERS 
IN Q TO BINARY AND 
LEAVE THE RESULT IN THE 
ACCUMULATOR THE CON 
VERSION WILL END AFTER 
5 CHARACTERS HAVE BEEN 
CONVERTED OR A NON DEC 
IMAL CHARACTER HAS BEEN 
FOUND IF THIS CHARACT 


51233 

01237 

47 

01241 

01242 

51234 

01240 

11 

01520 

32000 

51235 

01241 

11 

32000 

01517 

51236 

01242 

11 

02035 

32000 

51237 

01243 

45 

00000 

01225 

51240 

01244 

37 

01175 

01167 

51241 

01245 

35 

01520 

01520 

51242 

01246 

37 

01175 

01171 

51243 

01247 

35 

01517 

01517 

51244 

012 50 

45 

00000 

01225 

51245 

01251 

11 

32000 

31000 

51246 

01252 

11 

02047 

02155 

51247 

01253 

11 

02061 

02156 

512 50 

012 54 

55 

31000 

00006 

51251 

012 5 5 

51 

02102 

32000 

51252 

01256 

36 

02055 

02157 

51253 

01257 

46 

01267 

01260 

51254 

01260 

42 

02075 

01264 

51255 

01261 

43 

02120 

01267 

51256 

01262 

11 

02007 

01550 

51257 

01263 

45 

00000 

01267 

51260 

01264 

31 

02155 

00003 

51261 

01265 

35 

02157 

02155 

51262 

01266 

41 

02156 

01254 

51263 

01267 

31 

02155 

00000 

51264 

01270 

45 

00000 

00000 

51265 

01271 

11 

02047 

02155 

51266 

01272 

11 

02061 

02157 

51267 

01273 

55 

31000 

00006 

51270 

01274 

51 

02102 

32000 

51271 

01275 

36 

02055 

02156 

51272 

01276 

46 

01307 

01277 

51273 

01277 

42 

02045 

01303 

51274 

01300 

43 

02101 

01307 

51275 

01301 

11 

02006 

01550 

51276 

01302 

45 

00000 

01307 

51277 

01303 

31 

02155 

00002 

5130C 

01304 

32 

02155 

00001 
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AT 

TEMP+1 

TEMP 

ER IS NOT 5 OR BLANK. 

51301 

01305 

35 

02156 

02155 


IJ 

TEMP+2 

T82 + 2 

A DEC WARNING WILL BE 

51302 

01306 

41 

02157 

01273 


SP 

TEMP 


GIVEN 

51303 

01307 

31 

02155 

00000 

T 8 3 

MJ 



EXIT 

51304 

01310 

45 

00000 

00000 

T84 

TP 

L {4 } 

TEMP+1 

THIS IS A CLOSED SUB¬ 

51305 

01311 

11 

02067 

02156 


LTR 

21 

0 

ROUTINE THAT WILL CON¬ 

51306 

01312 

22 

10025 

31000 


TP 

L (0 ) 

TEMP 

VERT THE FIVE LOW 

51307 

01313 

11 

02047 

02155 


LQ 

0 

3 

ORDER DIGITS OF A 

51310 

01314 

55 

31000 

00003 


SP 

TEMP 

6 

RIGHT TO XS-3 OCTAL 

51311 

01315 

31 

02155 

00006 


QA 

L C7) 

TEMP 

AND LEAVE THE RESULT 

51312 

01316 

52 

02121 

02155 


IJ 

TEMP+1 

L-3 

IN THE ACCUMULATOR 

51313 

01317 

41 

02156 

01314 


RA 

TEMP 

XS3Z 


51314 

01320 

21 

02155 

02033 

78 5 

MJ 



EXIT 

51315 

01321 

45 

00000 

OOOOO 

T8 6 

ltl 

6 

W+14 

STORE LOW 5 OCTAL DIGITS 

51316 

01322 

22 

00006 

02146 


LTL 

15 

W+15 

OF A INTO W+16 NEXT 5 

51317 

01323 

22 

00017 

02147 


LTL 

15 

W+16 

IN W+15 AND HIGH ORDER 

51320 

01324 

22 

00017 

02150 

T8T 

MJ 



2 INTO W+14 AND EXIT 

51321 

01325 

45 

00000 

OOOOO 

fldec 

RPV 

4 

L+2 

CLEAR FOUR TEMPORARY 

51322 

01326 

75 

10004 

01330 


TP 

L{0) 

TEMP 

CELLS TEMP TO TEMP+3 

51323 

01327 

11 

02047 

02155 


TP 

L {5 1 

TEMP+5 

SET INDEX TO 5 

51324 

01330 

11 

02061 

02162 


LO 

TEMP+4 

6 

MASK OFF LEADING CHAR¬ 

51325 

01331 

55 

02161 

00006 


QT 

L E 77B) — 

A 

ACTER TO ACCUMULATOR 

51326 

01332 

51 

02102 

32000 


EJ 

L (0 5 

T91 

TEST FOR BLANK 

51327 

01333 

43 

02047 

01352 


EJ 

L{22B 5 

T91-2 

TEST FOR DECIMAL POINT 

51330 

01334 

43 

02120 

01350 


EJ 

L (2 5 

T91 

TEST FOR MINUS SIGN 

51331 

01335 

43 

02063 

01352 


ST 

L { 3 5 

TEMP+12 

SUBTRACT 3 TO TEMP CELL 

51332 

01336 

36 

02055 

02171 


TJ 

LC10) 

L+4 

TEST FOR NON DECIMAL 

51333 

01337 

42 

02045 

01343 

190 

TP 

L10 ) 

TEMP 

CLEAR RESULT CELL 

51334 

01340 

11 

02047 

02155 


TP 

DEC 

W+18 

SET ERROR INDICATOR 

51335 

01341 

11 

02006 

02152 


MJ 


T9S+1 

JUMP TO ERROR EXIT 

51336 

01342 

45 

00000 

01441 


SP 

TEMP 

2 

MULTIPLY INTEGER TO DATE 

51337 

01343 

31 

02155 

00002 


SA 

TEMP 

1 

BY 12 AND ADD IN THIS 

51340 

01344 

32 

02155 

00001 


AT 

TEMP+12 

TEMP 

DIGIT 

51341 

01345 

35 

02171 

02155 


RA 

TEMP+1 

TEMP+2 

BUMP DECIMAL PLACE COUNT 

51342 

01346 

21 

02156 

02157 


MJ 


L+2 

JUMP TO INDEX 

51343 

01347 

45 

00000 

01351 


RA 

TEMP+2 

L(l) 

• SET DECIMAL PLACE ADDER 

51344 

01350 

21 

02157 

02054 


IJ 

TEMP+5 

FLDEC+3 

TEST FOR 6 DIGITS 

51345 

01351 

41 

02162 

01331 

T91 

MJ 



EXIT 

51346 

01352 

45 

00000 

OOOOO 
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T92 


T93 


T94 


T95 



STORE 1ST 6 DIGITS OF U 
IN TEMP+4 TO BE CONV¬ 
ERTED TO BINARY 
STORE NEXT 4 DIGITS OF 
U INTO TEMP+4 TO BE 
CONVERTED TO BINARY AND 
ADDED TO FIRST SIX 
TEST FOR MINUS SIGN 
SAVE MANTISSA 
SAVE DECIMAL PLACE COUNT 
STORE EXPONENT IN TEMP+4 
TO BE CONVERTED TO BIN¬ 
ARY AND STORE IN TEMP 
AND ITS SIGN IN TEMP+1 
TEST IF SIGN IS NEGATIVE 
IF SO COMPLEMENT EXPON 
ENT - DECIMAL PLACES 
STORE ABSOLUTE VALUE OF 
EXPONENT IN TEMP+2 
TEST IF EXPONENT IS TOO 
LARGE OR TOO SMALL IF 
SO EXIT TO ERR ROUTINE 
COMPUTE 10 TO THE NTH 
POWER WHERE N IS THE 
ABSOLUTE VALUE OF THE 
EXPONENT - DECIMAL PL¬ 
ACES AND STORE IN TMP+4 
MULT EXPONENT X LOG10B2 
SAVE INTEGER PART 
TEST FOR NEGATIVE EXPON 
IF SO SUBTRACT ONE FROM 
INTEGER PART AND RECIP 
ROCATER EXPONENT 
MULT 10 TO NTHX MANTISSA 
TEST FOR ZERO 
NORMALIZE ABOVE PRODUCT 
AND SAVE SF COUNT 
ADD COUNT TO INTEGER PRT 


51347 01353 11 02133 02161 

51350 01354 37 01352 01326 

51351 01355 43 02063 01340 

51352 01356 31 02134 00030 

51353 01357 22 00000 32000 

51354 01360 22 10014 02161 

51355 01361 37 01352 01330 

51356 01362 43 02063 01340 

51357 01363 11 02155 02164 

51360 01364 11 02156 02165 

51361 01365 11 02135 02161 

51362 01366 37 01352 01326 

51363 01367 43 02063 01350 

51364 01370 31 02156 00000 

51365 01371 47 01372 01373 

51366 01372 13 02155 02155 

51367 01373 23 02155 02165 

51370 01374 12 02155 02157 

51371 01375 11 02023 02161 

51372 01376 31 02157 00000 

51373 01377 42 02103 01405 

51374 01400 45 00000 01440 

51375 01401 31 02161 00002 

51376 01402 32 02161 00001 

51377 01403 74 32000 02160 

51400 01404 11 32000 02161 

51401 01405 41 02157 01401 

51402 01406 71 02155 02025 

51403 01407 22 00003 02163 

51404 01410 46 01411 01414 

51405 01411 23 02163 02054 

51406 01412 31 02023 00043 

51407 01413 73 02161 02161 

51410 01414 71 02161 02164 

51411 01415 47 01416 01462 

51412 01416 74 32000 02160 

51413 01417 11 32000 02164 

51414 01420 21 02163 02160 
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AT 

L (1) 

TEMP+6 

ADD ONE TO THIS SUM 

51415 

01421 

35 

02054 

02163 

T 96 

LQ 

W+2 

Q+6 

BREAK OPERATION FIELD IN 

51416 

01422 

55 

02132 

31006 


TP 

Q 

TEMP+4 

TWO PARTS STORE BINARY 

51417 

01423 

11 

31000 

02161 


LQ 

Q 

18 

SCALE FACTOR IN TEMP+4 

51420 

01424 

55 

31000 

00022 


GT 

L(77B) 

TEMP+9 

AND SIGN IN TEMP+9 

51421 

01425 

51 

02102 

02166 

T9T 

RJ 

L 

L+l 

ONE SHOT SWITCH 

51422 

01426 

37 

01426 

01427 


RA 

TEMP+6 

L ( 200B) 

ADD 200 TO CHARACTER I TIC 

51423 

01427 

21 

02163' 02122 


RA 

TEMP+7 

L(200B) 

ADD 200 TO MANTISSA 

51424 

01430 

21 

02164 

02122 


EJ 

A 

L + 3 

TEST FOR CARRY 

51425 

01431 

43 

32000 

01434 


RA 

TEMP+6 

L<1) 

ADD 1 TO CHARACTERISTIC 

51426 

01432 

21 

02163 

02054 


SP 

1S34 


SET MANTISSA TO 1 S 34 

51427 

01433 

31 

02023 

00000 


LT 

28 

Q 

COMBINE CHARACTERISTIC 

51430 

01434 

22 

00034 

31000 


SP 

TEMP+6 

27 

AND MANTISSA AND PUT 

51431 

01435 

31 

02163 

00033 


AT 

Q 

Q 

IN Q 

51432 

01436 

35 

31000 

31000 


EJ 

A 

T99A 

TEST IF CHARACTERISTIC 

51433 

01437 

43 

32000 

014 5 5 

T98 

TP 

EXP 

W+l 8 

IS TOO LARGE IF SO SET 

51434 

01440 

11 

02012 

Q /. i o /?. 


TP 

L (0 ) 

Q 

TO ZERO AND GO TO ERROR 

51435 

01441 

11 

02047 

n n'tn 

-L W Kj 


MJ 


T99B-1 

EXIT 

51436 

01442 

45 

00000 

01460 


TP 

BLNKS 

W+l 7 

CLEAR ERROR INDICATOR 

51437 

01443 

11 

02035 

0 2151 

T99 

RJ 

T97 

T91 + 1 

ENTRANCE FOR STATED PT 

51440 

01444 

37 

01426 

012 53 


RJ 

T91 

FLDEC 

CONVERT MANTISSA 

• 51441 

01445 

37 

01352 

0132 6 


RA 

TEMP+6 

TEMP 

CONVERT SCALING 

51442 

01446 

21 

02163 

02155 


SA 

L {1 ) 


ADD ONE 

51443 

01447 

32 

02054 

0000 0 


SJ 

T98 

L+l 

TEST FOR MINUS 

51444 

01450 

46 

01440 

014 5 1 


TV 

A 

L+l 

SET UP SHIFT 

51445 

01451 

16 

32000 

01452 


SP 

TEMP+7 


ROUND MANTISSA 

51446 

01452 

31 

02164 

00000 


SA 

1S3 5 


AND SHIFT 

51447 

01453 

32 

02024 

CCOOO 


LT 


Q 

STORE IN Q 

51450 

01454 

22 

00000 

31000 

T99A 

RS 

TEMP+9 

L (2 ) 

TEST SIGN OF NUMBER 

51451 

01455 

23 

02166 

02063 


ZJ 

L+2 

L + l 

IF NEGATIVE COMPLEMENT Q 

51452 

01456 

47 

01460 

01457 


TN 

Q 

Q ■ 


51453 

01457 

13 

31000 

31000 


SP 

Q 


SPLIT OFF RESULT INTO 

51454 

01460 

31 

31000 

00000 

T99B 

RJ 

L 

L + l 

(ONE-SHOT SWITCH) 

51455 

01461 

37 

01461 

01462 


RJ 

T87 

T86 

W+l4 W+l5 W+l6 

51456 

01462 

37 

01325 

01322 

T100 

RJ 

T97 

T97 

RESTORE SWITCH 

51457 

01463 

37 

01426 

01426 


MJ 


T12 

EXIT TO STORE FOR WRITE 

51460 

01464 

45 

00000 

00413 

XS3CON 

SP 

W+l 


SHIFT TAG LEFT THREE 

51461 

01465 

31 

02131 

00000 


LTL 

18 

W 

XS-3 POSITIONS STORE IN 

51462 

01466 

22 

00022 

02130 
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TP 

A 

W+l 


SP 

W+l 2 



TP 

A 

TEMP+6 


EJ 

BLNKS 

L+3 

T110 

RJ 

T85 

T 84 


TP 

A 

W+l 2 


SP 

W+l 3 



TP 

A 

TEMP+7 


EJ 

BLNKS 

T113 


RJ 

T85 

T84 


TP 

A 

W+13 

T110A 

TP 

W+2 

A 


EJ 

RSRV 

T113 

Till 

SP 

W+14 



RJ 

T85 

T84 


LG 

A 

A+24 


LTL 

12 

W+14 


SP 

W+l 3 



RJ 

T85 

T 84 

T112 

TP 

A 

W+15 


SP 

W+16 



RJ 

T85 

T84 


TP 

A 

W+16 

T113 

MJ 



T120 



10B) 

T121 



10B) 

T121A 



10B) 

T121B 



10B) 

T122 


20000B ) 


T122A 




T123 


20113B) 


T124 




T125 


20000B ) 


T126 


20113B) 


T127 




T128 


20004B) 


T128A 




T129 


21400B) 



W AND W+l 

SAVE STORAGE ADDRESS IN 
TEMP+6 AND TEST IF 
BLANK DO NOT CONVERT 
CONVERT TO XS-3 AND 
STORE IN W+l2 
SAVE EXECUTION ADDRESS 
IN TEMP+7 AND TEST IF 
BLANK DO NOT CONVERT 
CONVERT TO XS-3 AND 
STORE IN W+l3 
IF RSRV INSTRUCTION DO 
NOT CONVERT OP*U* OR V 
CONVERT OPERATION TO 
XS-3 SHIFT OFF TWO 
LOW ORDER CHARACTERS 
AND STORE IN W+14 
CONVERT U FIELD TO XS-3 
AND STORE IN W+15 

CONVERT V FIELD TO XS-3 . 
AND STORE IN W+16 

EXIT 

EXECUTION LOCATION CTR 
STORAGE LOCATION COUNTER 
SAFE STORAGE FOR 
LOCATION COUNTERS 
L( TYPE CONSTANT TALLY 
CONSTANT COUNT 
L( TYPE CONSTANT MAXIMUM 
ADDRESS OF 1ST CONSTANT 
UNDEFINED TAG TALLY 
UNDEFINED TAG MAXIMUM 
ADDRESS OF 1ST UNDEF TAG 
TAG TALLY 
TAG COUNT 
TAG MAXIMUM 


30 


51463 

01467 

11 

32000 

02131 

51464 

01470 

31 

02144 

00000 

51465 

01471 

11 

32000 

02163 

51466 

01472 

43 

02035 

01475 

51467 

01473 

37 

01321 

01311 

51470 

01474 

11 

32000 

02144 

51471 

01475 

31 

02145 

00000 

51472 

01476 

11 

32000 

02164 

51473 

01477 

43 

02035 

01516 

51474 

01500 

37 

01321 

01311 

51475 

01501 

11 

32000 

02145 

51476 

01502 

11 

02132 

32000 

51477 

01503 

43 

02016 

01516 

51500 

01504 

31 

02146 

00000 

51501 

01505 

37 

01321 

01311 

51502 

01506 

55 

32000 

32030 

51503 

01507 

22 

00014 

02146 

51504 

01510 

31 

02147 

00000 

51505 

01511 

37 

01321 

01311 

51506 

01512 

11 

32000 

02147 

51507 

01513 

31 

02150 

00000 

51510 

01514 

37 

01321 

01311 

51511 

01515 

11 

32000 

02150 

51512 

01516 

45 

00000 

00000 

51513 

01517 

00 

00000 

00010 

51514 

01520 

00 

00000 

00010 

51515 

01521 

00 

00000 

00010 

51516 

01522 

00 

00000 

00010 

51517 

01523 

00 

20000 

00000 

51520 

01524 

00 

00000 

00000 

51521 

01525 

00 

20113 

00000 

51522 

01526 

00 

00000 

00000 

51523 

01527 

00 

20000 

00000 

51524 

01530 

00 

20113 

00000 

51525 

01531 

00 

00000 

00000 

51526 

01532 

00 

20004 

00000 

51527 

01533 

00 

00000 

00000 

51530 

01534 

00 

21400 

00000 
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T130 

T130A 

T1 31 

T132 

T133 

T134 

T135 

T1 36 

T136A 

T136B 

T137 

T138 

T139 

T140 

T141 


T142 


20074B ) 


T149 


WT2 

WT 

T150 


W+l 

WT 2 

T151 

RJ 

T20 

T1 8 

T152 

TP 

OTABLE 

Q 

T153, 


W+3 

W+l 

T154 


W+5 

WT2 

T155 


W+6 

T 69—1 

T157 



EB+60 

T160 

RPB 

20 

L+2 


TP 

W+l 

EB+100 


RS 

T122 

RPD 


SJ 

T165 

L+l 


RPV 

20 

L+2 


TP 

BLNKS 

W 


RPB 

3 

L+2 

T161 

TP 

CPRINT 

W+5 


LTL 

21 

TEMP+5 


TP 

T134 

W+l 3 


RA 

T134 

L (1) 


SS 

T135 


T162 

EJ 

L (1 ) 

L+2 


TP 

T135 

W+12 


EQLS TALLY 
EQLS COUNT 
EQLS MAXIMUM 
DUPLICATE TAG TALLY 
DUPLICATE TAG MAXIMUM 
LAST EXECUTION ADDRESS 
LAST STORAGE ADDRESS 
INPUT BLOCKETTE COUNT 
INSTRUCTION COUNTER 
BLOCK COUNTER 
DRUM STORE TALLY 
ERROR INDICATOR 
OUTPUT BLOCKETTE TALLY 
OUTPUT BLOCK TALLY 
DRUM TO CORE TALLY 
OPERATION TABLE TALLY 
RESETTING CONSTANT 
RESETTING CONSTANT 
TO READ INPUT TAPE 
FOR OPERATION LOOKUP 
RESETTING CONSTANT 
RESETTING CONSTANT 
RESETTING CONSTANT 
RESETTING CONSTANT 
SAVE END INSTRUCTION 
IN EQLS BUFFER 
TEST IF L( TYPE CONSTANT 
HAVE BEEN USED 
SET STORAGES W - W+19 
TO BLANKS 

STORE THE WORDS CONSTANT 
POOL IN W+5 - W+7 
SETUP INDEX 

STORE EXECUTION ADDRESS 
BUMP EXECUTION ADDRESS 
TEST IF STORAGE ADDRESS 
EQUALS EXECUTION ADDR- 
IF NOT STORE IN W+12 


51531 01535 00 00000 00000 

51532 01536 00 00000 00000 

51533 01537 00 00000 00000 

51534 01540 00 00000 00000 

51535 01541 00 00000 00000 

51536 01542 00 00000 00000 

51537 01543 00 00000 00000 

51540 01544 00 00000 00000 

51541 01545 00 00000 00000 

51542 01546 00 00000 00000 

51543 01547 00 00000 00000 

51544 01550 00 00000 00000 

51545 01551 00 00000 00000 

51546 01552 00 00000 00000 

51547 01553 00 00000 00000 

51550 0i554 00 20074 00000 

51551 01555 00 07230 05710 

51552 01556 00 02131 07230 

51553 01557 37 00446 00422 

51554 01560 11 00563 31000 

51555 01561 00 02133 02131 

51556 01562 00 02135 07230 

51557 01563 00 02136 01174 

51560 01564 00 00000 07704 

51561 01565 75 30024 01567 

51562 01566 11 02131 07754 

51563 01567 23 01523 02031 

51564 01570 46 01617 01571 

51565 01571 75 10024 01573 

51566 01572 11 02035 02130 

51567 01573 75 30003 01575 

51570 01574 11 02037 02135 

51571 01575 22 00025 02162 

51572 01576 11 01542 02145 

51573 01577 21 01542 02054 

51574 01600 34 01543 00000 

51575 01601 43 02054 01603 

51576 01602 11 01543 02144 
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T163 


T164 


T165 


T166 


T167 


T170 


RA 

T135 

L (1) 

BUMP STORAGE ADDRESS 

RJ 

L 

L+l 

ONE SHOT SWITCH 

SP 

CPT 


SPLIT BINARY CONSTANT 

RJ 

T87 

T86 

AND STORE IN W+14 -W+l6 

RA 

L-2 

L(100000B 5 

BUMP CONSTANT POOL FETCH 

RPB 

2 

L+2 

STORE SYMBOLIC CONSTANT 

TP 

CPT+75 

W+9 

INTO W+9 AND W+10 

RA 

L-l 

L(200000B) 

BUMP FETCH 

RJ 

T25 

T21 

STORE IN OUTPUT BUFFER 

RPV 

3 

L + 2 

CLEAR STORAGES 

TP 

L ( 0 } 

W+5 

W+5 TO W+7 

I J 

TEMP+5 

T161+2 

TEST FOR ALL CONSTANTS 

RS 

T125 

RPD 

TEST FOR UNDEFINED TAGS 

SJ 

T170-1 

L + l 

IF NOT EXIT 

RPV 

20 

L + 2 

CLEAR STORAGES 

TP 

BLNKS 

W 

W TO W+l9 

RPR 

3 

L+2 

STORE THE WORDS UNDEFIN 

TP 

UTPRNT 

W+5 

ED TAGS IN W+5 TO W+7 

LTL 

21 

TEMP+5 

SET UP UNDEF TAG INDEX 

SP 

L (0 ) 


SET OCTAL TRANSLATION TO 

RJ 

T87 

T86 

ZERO FOR UNDEFINED TAGS 

RJ 

T163-1 

T161+2 

STORE IN W+14 W+15 W+16 

TP 

UT 

W+9 

STORE UNDFD TAG IN W+9 

RA 

L-l 

L(100000B) 

BUMP FETCH 

RJ 

T25 

T21 

STORE IN OUTPUT BUFFER 

RPV 

3 

L + 2 

CLEAR STORAGES W+5 W+6 

TP 

L (0 ) 

W+5 

AND W+7 

IJ 

TEMP+5 

T166+2 

TEST FOR ALL UNDEF TAGS 

RPB 

20 

L+2 

BRING END INSTRUCTION 

TP 

EB+100 

W+l 

IN W STORAGE 

RJ 

T 69 

T 67 

TRANSLATE U ADD OF END 

RJ 

T85 

T84 

CONVERT TO XS-3 

TP 

A 

W+l 5 

STORE IN W+15 

RPV 

3 

L + 2 

CLEAR STORAGES 

TP 

BLNKS 

W+12 

W+12 TP W+14 

RJ 

T25 

T21 

STORE IN OUTPUT BUFFER 

TP 

PSTOP 

W+2 

STORE PRTR STOP IN W+2 

RJ 

T25 

T21 

STORE IN OUTPUT BUFFER 


51577 

01603 

21 

01543 

51600 

01604 

37 

01604 

51601 

01605 

31 

02201 

51602 

01606 

37 

01325 

51603 

01607 

21 

01605 

51604 

01610 

75 

30002 

51605 

01611 

11 

02314 

51606 

01612 

21 

01611 

51607 

01613 

37 

00477 

51610 

01614 

75 

10003 

51611 

01615 

11 

02047 

51612 

01616 

41 

02162 

51613 

01617 

23 

01527 

51614 

01620 

46 

01637 

51615 

01621 

75 

10024 

51616 

01622 

11 

02035 

51617 

01623 

75 

30003 

51620 

01624 

11 

02042 

51621 

01625 

22 

00025 

51622 

01626 

31 

02047 

51623 

01627 

37 

01325 

51624 

01630 

37 

01604 

51625 

01631 

11 

02573 

51626 

01632 

21 

01631 

51627 

01633 

37 

00477 

51630 

01634 

75 

10003 

51631 

01635 

11 

02047 

51632 

01636 

41 

02162 

51633 

01637 

75 

30024 

51634 

01640 

11 

07754 

51635 

01641 

37 

01175 

51636 

01642 

37 

01321 

51637 

01643 

11 

32000 

51640 

01644 

75 

10003 

51641 

01645 

11 

02035 

51642 

01646 

37 

00477 

51643 

01647 

11 

02036 

51644 

01650 

37 

00477 


02054 

01605 

00000 

01322 

02052 

01612 

02141 

02123 

00447 

01616 

02135 

01576 

02031 

01621 

01623 

02130 

01625 

02135 

02162 

00000 

01322 

01576 

02141 

02052 

00447 

01636 

02135 

01626 

01641 

02131 

01167 

01311 

02147 

01646 

02144 

00447 

02132 

00447 
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T171 

SJ 

L+4 

L+l 


TP 

T22+3 

T 2 2 + 2 


RJ 

T25 

T21 


SJ 

L+l 

L—1 


EF 


RWND4 

T172 

EF 


RWND5 


MS 


40014B) 

SORT 

SP 

T128 



SS 

RPD 



AT 

L(100000B) 

Q 


RA 

T210+1 

Q 

T200 

RA 

T210A 

Q 


RA 

T203 

Q 


RA 

T 208 + 2 

Q 


RA 

T209 

Q 


RA 

T209+2 

Q 

T201 

RA 

T210+2 

Q 


RA 

T210A-2 

Q 


RA 

T210A+1 

Q 


RA 

T203-3 

Q 


LQ 

Q 

21 


RA 

T212 

Q 

T202 

RA 

T210 

Q 


TP 

L (1 ) 

TEMP 


RA 

K 

L (1) 


LA 

TEMP 

1 


TJ 

Q 

L-2 


TV 

Q 

T211+1 


I J 

T211+1 

L+l 


TP 

L (1 ) 

Q 


RPR 


L + 2 


TP 

TL 

TLDRUM 


SP. 

T211 


T203 

RPV 


L+2 


AT 

L(100000R) 

1BUF 


TV 

T211+1 

T212+1 


TU 

T211+1 

T204+3 


TU 

T211+1 

T205+1 


IF TAPE DID NOT WRITE 
GIMMICK TEST 
WRITE LAST BLOCK OF 
SYMBOLIC TAPE 
REWIND INPUT TAPE 
REWIND OUTPUT TAPE 
FINAL STOP 

SUBTRACT HIGH ORDER 2 
FROM. TAG TALLY AND 
LEAVE IN U PART OF Q 
THIS IS A CLOSED SUB¬ 
ROUTINE THAT WILL SORT 
THE TAG TABLE BEGINNING 
AT THE SYMBOLIC LOCATON 
TT INTO AN ASCENDING 
SEQUENCE WHERE EACH 
ENTRY IS TREATED AS A 
36 BIT NUMBER WITHOUT 
SIGN THE LOCATIONS 
ASSOCIATED WITH THE 
ENTRIES IN THE TT TABLE 
BEGIN IN THE SYMBOLIC 
LOCATION TL THE TL 
TABLE IS 769 WORDS LONG 
AND CONTAINS STORAGE 
AND EXECUTION ADDRESSES 
IN THE U AND V FIELDS 
RESPECTIVELY THE TL 
TABLE IS STORED ON DRUM 
SEVEN DURING THE SORT 
OF THE TT TABLE THEN 
THE TT TABLE IS STORED 
ON DRUM DURING THE TL 
TABLE SORT THE ROUTINE 
REQUIRES 2 BUFFERS EACH 
EQUAL IN LENGTH TO THE 
SIZE OF THE TAG TABLE 
THESE BUFFERS ARE NAMED 


51645 01651 46 01655 01652 

51646 01652 11 00457 00456 

51647 01653 37 00477 00447 

51650 01654 46 01655 01653 

51651 01655 17 00000 02003 

51652 01656 17 00000 01776 

51653 01657 56 00000 40014 

51654 01660 31 01532 00000 

51655 01661 34 02031 00000 

51656 01662 35 02052 31000 

51657 01663 21 01756 31000 

51660 01664 21 01763 31000 

51661 01665 21 01712 31000 

51662 01666 21 01746 31000 

51663 01667 21 01751 31000 

51664 01670 21 01753 31000 

51665 01671 21 01757 31000 

51666 01672 21 01761 31000 

51667 01673 21 01764 31000 

51670 01674 21 01707 31000 

51671 01675 55 31000 00025 

51672 01676 21 01770 31000 

51673 01677 21 01755 31000 

51674 01700 11 02054 02155 

51675 01701 21 01150 02054 

51676 01702 54 02155 00001 

51677 01703 42 31000 01701 

51700 01704 16 31000 01767 

51701 01705 41 01767 01706 

51702 01706 11 02054 31000 

51703 01707 75 30000 01711 

51704 01710 11 04307 76400 

51705 01711 31 01766 00000 

51706 01712 75 10000 01714 

51707 01713 35 02052 05710 

51710 01714 16 01767 01771 

51711 01715 15 01767 01722 

51712 01716 15 01767 01726 
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T204 


T205 


T206 


T207 


T208 


T209 

T210 


T210A 


TU 

T2U + 1 

T206+1 

TV 

T208+3 

T205+1 

TV 

T203+1 

T206+1 

TU 


T205-1 

RA 

L—1 

L(100000B) 

QT 

FILL 

A 

ZJ 

L + l 

T206+1 

TP 

FILL 

FILL 

RA 

L-l 

L(100001B) 

TU 

A 

T206+1 

I J 

T212+1 

T204+3 

MJ 


T207 

TP 

fill 

FILL 

RA 

L-l 

L{100001B) 

TU 

A 

T205+1 

I J 

T212+1 

T 2 04+3 

TV 

T206+1 

T208 

SP 

T212 


SS 

T208 

15 

AT 

T213 

L + l 

RP 


L+2 

TP 

2BUF 

FILL 

QJ 

L+l 

T203+2 

RPB 


L+2 

TU 

1BUF 

2BUF 

SP 

T211 


RPV 


L+2 

AT 

L (1 ) 

1BUF 

RPB 


L+2 

TU 

2BUF 

1BUF 

TP 

T213+1 

1 BUF 

RJ 

1BUF 

1BUF 

RPB 


L + 2 

TP 

TLDRUM 

TT 

RPB 


L+2 

TP 

2BUF 

TLDRUM 

RJ 

1BUF 

1BUF 

RPB 


FILL 


PAGE 27 OF 

1BUF AND 2 BUF THE 
SORTED TABLES ARE LEFT 
IN THEIR ORIGINAL 
BUFFERS AT THE TERMI¬ 
NATION OF THE SORT 
THE TL TABLE IS TESTED 
BIT BY BIT BEGINNING 
IN LOW ORDER POSITION 
WHEN A ZERO IS FOUND 
THE CORRESPONDING DUMMY 
TP COMMAND IS PLACED 
IN 1BUF WHEN A ONE 
IS FOUND THE CORRESP¬ 
ONDING TP DUMMY IS 
PLACED IN THE 2BUF 
WHEN ONE BIT OF EACH 
ENTRY IN THE TL TABLE 
HAS BEEN TESTED THE 
TP DUMMIES REPRESENTING 
ONES ARE MOVED TO THE 
1BUF BUFFER IMMEDIATELY 
FOLLOWING THE ZERO TP 
DUMMIES WHEN ALL 36 
BITS OF EACH ENTRY HAVE 
BEEN TESTED A MJ COMM¬ 
AND IS STORED AFTER THE 
LAST DUMMY TP COMMAND 
THE DUMMY TP COMMANDS 
ARE THEN OBEYED THESE 
WILL SHUFFLE THE TABLES 
INTO THEIR PROPER SEP- 
UENCE THE APROXIMATE 
SORTING SPEED IS 1*3 
SECONDS PER 100 ENTRIES 
A MAXIMUM OF 768 
ENTRIES MAY BE SORTED 
THE ENTRY POINT IS AT 
THE SYMBOLIC LOCATION 


30 

51713 

01717 

15 

01767 

01733 

51714 

01720 

16 

01747 

01726 

51715 

01721 

16 

01713 

01733 

51716 

01722 

15 

00000 

01724 

51717 

01723 

21 

01722 

02052 

51720 

01724 

51 

30000 

32000 

51721 

01725 

47 

01726 

01733 

51722 

01726 

11 

30000 

30000 

51723 

01727 

21 

01726 

02124 

51724 

01730 

15 

32000 

01733 

51725 

01731 

41 

01771 

01722 

5172.6 

01732 

45 

00000 

01737 

51727 

01733 

11 

30000 

30000 

51730 

01734 

21 

01733 

02124 

51731 

01735 

15 

32000 

01726 

51732 

01736 

41 

01771 

01722 

51733 

01737 

16 

01733 

01744 

51734 

01740 

31 

01770 

00000 

51735 

01741 

34 

01744 

00017 

51736 

01742 

35 

01772 

01743 

51737 

01743 

75 

00000 

01745 

51740 

01744 

11 

04307 

30000 

51741 

01745 

44 

01746 

01714 

51742 

01746 

75 

30000 

01750 

51743 

01747 

15 

05710 

04307 

51744 

01750 

31 

01766 

00000 

51745 

01751 

75 

10000 

01753 

51746 

01752 

35 

02054 

05710 

51747 

01753 

75 

30000 

01755 

51750 

01754 

15 

04307 

05710 

51751 

01755 

11 

01773 

05710 

51752 

01756 

37 

05710 

05710 

51753 

01757 

75 

30000 

01761 

51754 

01760' 

11 

76400 

02706 

51755 

01761 

75 

30000 

01763 

51756 

01762 

11 

04307 

76400 

51757 

01763 

37 

05710 

05710 

51760 

01764 

75 

30000 

3000' r 
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TP 

TLDRUM 

TT 

T211 

TP 

TT-1 

2BUF-1 



1BUF 


T212 

TP 

2BUF 

1BUF 


B 



T213 

RPB 


T208+1 


MU 


FILL 

RDCARD 

40 


5 

WTP5 

B 

020004650000 


RWND5 

B 

020020050000 


RDTP4 

B 

020000240000 


M8CK1 

B 

020001440001 


MRACK 

R 

020001440000 


WTP4 

B 

020004640000 


RWND4 

B 

020020040000 


stape 

B 

020060040000 


NOP 

XS3 

NOP 


DEC 

XS3 

DEC 


OCT 

XS3 

OCT 


DEF 

XS3 

DEF 


DUP 

XS3 

DUP 


EXP 

XS3 

EXP 


E 

XS3 

E 


S 

XS3 

S 


EQLS 

XS3 

EQLS 


RSRV 

XS3 

RSRV 


SETL 

XS3 

■ SETL 


XS3 

XS3 

XS3 


END 

XS3 

END 


SIND 




IS 34 

B34 

1 


1S35 

B 

400000000000 


L10B2 

B 

324464741135 


OMASK 

B 

077770000000 


LPCT 

B 

377737773777 


BT ST 

B 

202020202020 


RPD 


20001B ) 


L360 


360 
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SORT 

THE EXIT POINT IS 
AT THE SYMBOLIC LOCA¬ 
TION T210A + 1 


PICK CARD READ 
WRITE ON OUTPUT TAPE 
REWIND OUTPUT TAPE 
READ INPUT TAPE 
MOVE INPUT TAPE BACK ONE 
MOVE INPUT TAPE BACK 
WRITE ON INPUT (CARD OP) 
REWIND INPUT TAPE 
STOP TAPE 
—-NOP WARNING 

-DEC WARNING 

-OCT WARNING 

-DEF WARNING 

-DUP WARNING 

-EXP WARNING 

E (TEST CONSTANT) 

S (TEST CONSTANT) 

EQLS (TEST CONSTANT) 

RSRV (TEST CONSTANT) 

SETL (TEST CONSTANT) 

XS3 (TEST CONSTANT) 

end (TEST CONSTANT) 

STORAGE INDICATOR 

ONE SCALED 34 

ONE SCALED 35 

LOG 10 BASE 2 SCALED 33 

OPERATION MASK 

LOOP COUNTER 

TEST FOR LETTERS A B C D 

REPEAT DUMMY 

DRUM FETCH CONSTANT 


51761 01765 11 76400 02706 

51762 01766 11 02705 04306 

51763 01767 00 05710 00000 

51764 01770 11 0430? 05710 

51765 01771 00 00000 00000 

51766 01772 75 30000 01745 

51767 01773 45 00000 30000 

51770 01774 40 00000 00005 

51771 01775 02 00046 50000 

51772 01776 02 00200 50000 

51773 01777 02 00002 40000 

51774 02000 02 00014 40001 

51775 02001 02 00014 40000 

51776 02002 02 00046 40000 

51777 02003 02 00200 40000 

52000 02004 02 00600 40000 

52001 02005 00 00005 05152 

52002 02006 00 00002 73026 

52003 02007 00 00005 12666 

52004 02010 00 00002 73031 

52005 02011 00 00002 76752 

52006 02012 00 00003 07252 

52007 02013 30 00000 00000 

52010 02014 65 00000 00000 

52011 02015 30 53466 50000 

52012 02016 54 65547 00000 

52013 02017 65 30664 60000 

52014 02020 72 65060 00000 

52015 02021 30 50270 00000 

52016 02022 00 00000 00000 

52017 02023 20 00000 00000 

52020 02024 40 00000 00000 

52021 02025 32 44647 41135 

52022 02026 07 77700 00000 

52023 02027 37 77377 73777 

52024 02030 20 20202 02020 

52025 02031 00 20001 00000 

52026 02032 00 00550 00000 
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XS3Z 

B 

000303030303 

FIVE XS3 ZEROES 

52027 

02033 

00 

03030 

30303 

Z3S 

B 

030303030303 

SIX XS3 ZEROES 

52030 

02034 

03 

03030 

30303 

RLNKS 

B 

010101010101 

BLANKS 

52031 

02035 

01 

01010 

10101 

PSTOP 

B 

606060606060 

PRINTER STOP 

52032 

02036 

60 

60606 

06060 

CP RI NT 

XS3 

CONST 

(CONSTANT POOL) HEADING 

52033 

02037 

00 

26515 

06566 


XS3 

ANT P 

FOR SYMBOLIC OUTPUT 

52034 

02040 

24 

50660 

00052 


XS3 

00 L 

LISTING 

52035 

02041 

51 

51460 

00000 

UTPRNT 

XS3 

UNDER 

(UNDEFINED TAG) HEADING 

52036 

02042 

00 

67502 

73031 


XS3 

INED 

FOR SYMBOLIC OUTPUT 

52037 

02043 

34 

50302 

70000 


XS3 

TAGS 

LISTING 

52040 

02044 

66 

24326 

50000 



CONSTANT P 

OOL L (10 ) 

52041 

02045 

CO 

00000 

00012 




L(170000B) 

52 042 

02046 

00 

00001 

70000 




L (0 ) 

52043 

02047 

00 

00000 

00000 




L ( 14B ) 

52044 

02050 

00 

00000 

00014 




L ( 3 5 ) 

52045 

02051 

00 

00000 

00043 




L(100000B) 

52046 

02052 

00 

00001 

00000 




L (23) 

52047 

02053 

00 

00000 

00027 




L (1 ) 

52050 

02054 

00 

00000 

00001 




L (3 ) 

52051 

02055 

00 

00000 

00003 




L (17B) 

52052 

02056 

00 

00000 

00017 




L(60B ) 

52053 

02057 

00 

00000 

00060 




L (9 ) 

52054 

02060 

00 

00000 

00011 




L ( 5 ) 

52055 

02061 

00 

00000 

00005 




L ( 63B ) 

52056 

02062 

00 

00000 

00063 




L ( 2 ) 

52057 

02063 

00 

00000 

00002 




L (-41B ) 

52060 

02064 

00 

00000 

00041 




L ( 20B 5 

52061 

02065 

00 

00000 

00020 




L (5 IB) 

52062 

02066 

00 

00000 

00051 




L (4) 

52063 

02067 

00 

00000 

00004 




L (1200000B) 

52064 

02070 

00 

00012 

00000 




L (6 ) 

52065 

02071 

00 

00000 

00006 




L ( 192) 

52066 

02072 

00 

00000 

00300 




L ( 96 ) 

52067 

02073 

00 

00000 

00140 




L ( 960) 

52070 

02074 

00 

00000 

01700 




L{ 1 OB ) 

52071 

02075 

00 

00000 

00010 




L ( 60 ) 

52072 

02076 

00 

00000 

00074 




L ( 2 0 ) 

52073 

02077 

00 

00000 

00024 




L( 2 400000B) 

52074 

02100 

00 

00024 

00000 
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L {32 ) 

52075 

L(77B) 

52076 

L(54B) 

52077 

L{67B) 

52100 

L(70B) 

52101 

L(2 5B) 

52102 

L(IOOOOB) 

52103 

L{46B) 

52104 

L{53B) 

52105 

L{31344646B ) 

52106 

L(77777B) 

52107 

L(30000B) 

52110 

L(32000B) 

52111 

L(31000B) 

52112 

L(6 4B) 

52113 

L(2 2B) 

52114 

L ( 7 ) 

52115 

L(2 OOB) 

52116 

L(2OOOOOB ) 

52117 

L{100001B) 

52120 


02101 00 00000 00040 
02102 00 00000 00077 
02103 00 00000 00054 
02104 00 00000 00067 
02105 00 00000 00070 
02106 00 00000 00025 
02107 00 00000 10000 
02110 00 00000 00046 
02111 00 00000 00053 
02112 00 00313 44646 
02113 00 00000 77777 
02114 00 00000 30000 
02115 00 00000 32000 
02116 00 00000 31000 
02117 00 00000 00064 
02120 00 00000 00022 
02121 00 00000 00007 
02122 00 00000 00200 
02123 00 00002 00000 
02124 00 00001 00001 



SECTION II 


SERVICE LIBRARY 



1103AF-OPS-00001S 


I. INTRODUCTION 

The Service Library for the 1103AF consists of three sections: the execu¬ 
tive routine, BOSS, and the collection of service routines. The executive 
routine and certain service routines operate in two modes, depending on 
whether or not BOSS is in control. The following sections describe the 
executive routine and the service routines presently available on the LMSD 
1103AF. 

II. MECHANICS OF OPERATION 

The entire service library is located on the drum. Instructions to the 
executive routine can be given manually from the console or, in certain 
cases, under program control. 

A. Manually: 

1. Set specified parameters in Q and A. 

2. Set PAK *» proper start address. 

3. Depress start. 

B. Program Control: 

1. Set parameters as specified in Operating Instructions. 

2. RJ k003hB) DRUM ST where DRUMST is the drum start of the desired 
service. 

All service routines have a common exit at address l*003l*s 

(U003U) - 37 l*003l* U003S 
(1*0035) - 56 ooooo 1 * 0000 . 

A service routine used under program control does not stop at completion 
of the service as it would in the manual operation. Care should be used 
when using service routines in this manner while in the BOSS mode. 

III. THE EXECUTIVE ROUTINE 

The executive routine controls the use of service routines whether in or 
out of the BOSS mode. 

The initiation of a drum start accomplishes the following sequence of 
events: 

A. The Accumulator, Q-register, and the first 66l cells of core (0-1221*) 
are saved on the drum (in the Drum-Core Image) and the executive 
routine is transferred from drum to the released core space. 

B, The service routine to be executed is located and checksummed in its 
drum location. If the checksum is correct. A, Q, and core are restored 
and control is transferred to the service routine. 
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C. If the checksum fails, the BOSS Master Flip-Flop is checked. If BOSS 
is not in control an MSO stop with PAK ** 00002 indicates the failure. 
The accumulator will contain the code number of the service routine 
that failed. If BOSS is in control (MFF / 0), the desired service 
routine (and only that routine) is restored from the service library 
and then step B above is repeated. 

LIBRARY TAPE FORMAT 

The service library is written and read in the variable block mode except 
for the first block, called the "Driver Block." The Driver Block controls 
the loading of the library from tape to drum. 

Following the Driver Block are four variable blocks (201*8 words each) which 
contain the entire contents of the 1* and 5 drums* The drum is restored 
from these blocks when A®0 on a 1*0000 drum start. Second core is used as 
a buffer during the transfer and no attempt is made to preserve either the 
initial content of this buffer space or the first 66l words of first core. 

Following these four blocks on the tape, the service routines appear again 
in blocks of 500 words or less. In the case of a 1*0000 drum start with A 
equal to the Code (Code * DRUMST - 1*0000) of a routine, the library is 
moved past the 1* large blocks and the desired routine is selected from the 
small blocks. Since these blocks are £ 500 words, the Drum-Core Image in 
core may be used for the transfer buffer) hence, all of core is preserved 
on a selective restore. 
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OPERATION ASSIGNMENTS 

A. Drum Starts. 

Start 

1*0000 

Uoooo 

Uoooi 

U0002 

U0003 

Uoooi* 

U0005 

1*0006 

U0007 

U0010 

1*0011 

U0012 

U0013 

U001U 

U0015 

U0016 

U0017 

U0020 

hOOZL 

U0022 

U0023 

U002U 

1*0025 

1*0026 

1*0027 

1*0030 

1*0031 

U0032 

1*0033 

B. Miscellaneous. 

Executive Routine 
Drum-Core Image 
Basic BOSS 
BOSS Flip-in 

C. Abnormal Drum. 

Start 


Name 

Cold Start 

Load Library 

Drum FI 

Manual Stop 

BOSS Cold Start 

BOSS Error Restart 

BOSS Transfer to Next Job 

BOSS Recovery Restart 

SLAP 

Octal Dump 

SLAP Symbolic Read 

SLAP Octal Read 

2-Core Binary Dump 

Tape Duplicate 

Print Binary 

Paper Tape Package 

Prepare Service Library 

Four Field Loader 

Relativizer 

Tag or Clear Memory 

Load cell from Q 

Read cell to Q 

Rewind W/EOF 

Card-to-Tape Simulator 

Tape-to-Card Simulator 

Open 

Open 

Open 

Open 


Name 


Storage 

(Octal) 

Words 

1*0311*4*0336 

23 

1*0001 

1 

1*0002 

1 


50000-52177 

2200 

1*0371*4*1275 

702 

1*3220-1*31*60 

21*1 

1*31*61-1*3761 

301 

1*12764*1527 

232 

53373-53676 

30l* 

53677-51*336 

1*1*0 

51*337-51*657 

321 

52200-52551 

352 

1*1530-1*1711 

162 

53011-53372 

362 

1*17124*1723 

12 

1*1721*4*1732 

7 

1*1733-1*171*1 

7 

1*171*2-1*1767 

26 

52552-53010 

237 

53011- 



1*0000-1*0373 371*. 

1*1770-1*3217 1230 

l*1770-l*3a7 1230 

1 * 3762 - 1*6761 3000 


1*0000 


Cold Start 



DRUMST 


EXIT 

MFF 

SAVE 
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SETL 

40000)B 

40000 3 B 

MJ 

' 

LOAD 

MJ 

MS 


DRUMST 

MJ 


B0SS1 

MJ 


B0SS2 

MJ 


B0SS3 

MJ 


B0SS4 

MJ 


SLAP 

MJ 


DUMP 

MJ 


SLAPSY 

MJ 


SLAPS 

MJ 


BINARY 

MJ 


DUPE 

MJ 


PRINT 

MJ 


PAPER 

MJ 


SL 

MJ 


LOADER 

MJ 


RELATE 

MJ 


TAG 

MJ 


LOADCL 

MJ 


W0RD2Q 

MJ 


FILEND 

MJ 


CTTSIM 

MJ 


TTC 

MJ 


TRACE 

MJ 


OPEN 

MJ 


OPEN+4 

MJ 


OPEN+8 

RJ 

L 

L+l 

MS 


400003B 

TP 

CELLO 

DC I+3 

TP 

0 

DC I 

LTL 


DCI + 1 

TP 

A 

DCI+2 

TP 

DRUMST+1 

CELLO 

RPB 

NDCI 

DRUMST+2 


OPERATIONS PACKAGE 
LOAD LIBRARY FROM TAPE 
DRUM FI 

UNIVERSAL STOP 
BOSS COLD START 
BOSS ERROR RESTART 
BOSS GO TO NEXT JOB 
BOSS RECOVERY RESTART 
SYMBOLIC ASSEMBLY 
FREE RUN OCTAL DUMP 
READ SLAP SYMBOLIC TAPE 
READ SLAP OCTAL TAPE 
TWO-CORE BINARY DUMP 
TAPE DUPE AND/OR COMPARE 
PRINT BINARY TAPE 
PAPER TAPE PACKAGE 
PREPARE SERVICE LIBRARY 
4-FIELD OCTAL LOADER 
SLAP RELATIVIZER 
TAG OR CLEAR CORE/DRUM 
LOAD A CELL FROM Q 
DISPLAY A CELL IN Q 
REWIND TAPES-EOF OPTION 
CARD-TO-TAPE SIMULATOR 
TAPE-TO-CARD SIMULATOR 
MACHINE LANGUAGE TRACE 
OPEN 
OPEN 
OPEN 

COMMON EXIT FOR ALL 
SERVICE ROUTINES 
BOSS MASTER FLIP-FLOP 
THIS ROUTINE SAVES A* Q* 
Fl» AND THE FIRST 660 
CELLS OF CORE* 

A MANUAL JUMP IS SET IN 
FI TO INSURE PROPER 
EXECUTION OF ALL THE 


40000 

45 

00000 

40056 

40001 

45 

00000 

00000 

40002 

56 

00000 

40000 

40003 

45 

00000 

40062 

40004 

45 

00000 

40066 

40005 

45 

00000 

40072 

40006 

45 

00000 

40076 

40007 

45 

00000 

40102 

40010 

45 

00000 

40106 

40011 

45 

00000 

40112 

40012 

45 

00000 

40116 

40013 

45 

00000 

40122 

40014 

45 

00000 

40126 

40015 

45 

00000 

40132 

40016 

45 

00000 

40136 

40017 

45 

00000 

40142 

40020 

45 

00000 

40146 

40021 

45 

00000 

40152 

40022 

45 

00000 

40156 

40023 

45 

00000 

40162 

40024 

45 

00000 

40166 

40025 

45 

00000 

40172 

40026 

45 

00000 

40176 

40027 

45 

00000 

40202 

40030 

45 

00000 

40206 

40031 

45 

00000 

40212 

40032 

45 

00000 

40216 

40033 

45 

00000 

40222 

40034 

37 

40034 

40035 

40035 

56 

00000 

40000 

40036 

00 

00000 

00000 

40037 

11 

00000 

41773 

40040 

11 

31000 

41770 

40041 

22 

00000 

41771 

40042 

11 

32000 

41772 

40043 

11 

40001 

00000 

40044 

75 

31224 

40002 
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TP 

CELL1 

DC I +4 

SERVICE ROUTINES. 

40045 

11 

00001 

41774 

RESTOR 

TP 

DC! 

Q 

THIS ROUTINE RESTORES 

40046 

11 

41770 

31000 


SP 

DCI + 1 

36 

A* Q* AND THE FIRST 66 

40047 

31 

41771 

00044 


SA 

DC I+2 


CELLS OF CORE» ASSUMING 

40050 

32 

41772 

00000 


RPB 

NDCI 

L + 2 

THAT THESE HAVE BEEN 

40051 

75 

31224 

40053 


TP 

DC I +4 

CELL 1 

STORED IN DC I BY SAVE* 

40052 

11 

41774 

00001 


TV 

DC I+3 

CELLO 

ONLY THE V-ADDRESS OF 

40053 

16 

41773 

00000 


RJ 

L 

L + l 

FI IS RESTORED. THE 

40054 

37 

40054 

40055 


MJ 


EXIT 

COMMON EXIT IS USED. 

400 5 5 

45 

00000 

40034 

LOAD 

RJ 

param 

CALL 

THE FOLLOWING SETS OF 

40056 

37 

40230 

40231 


02 

READDR 

READDR 

WORDS (4 WORDS PER SET) 

40057 

02 

40314 

40314 



19 


ARE THE PARAMETER SETS 

40060 

00 

00023 

00000 





WHICH CONTROL THE 

40061 

00 

00000 

OOOOO 

BOSS1 

RJ 

PARAM 

DC I 

SELECTION OF THE PROPER 

40062 

37 

40230 

41770 


03 

DC I 

DC I 

SERVICE ROUTINE. THESE 

40063 

03 

41770 

41770 



1024B ) 


PARAMETERS ALSO ARE 

40064 

00 

01024 

00000 





USED BY THE PREPARE 

40065 

00 

OOOOO 

OOOOO 

BOSS2 

RJ 

PARAM 

17635B5 

SERVICE LIBRARY ROUTINE 

40066 

37 

40230 

17635 


04 

40002B5 

4Q002B) 

WHEN PREPARING A NEW 

40067 

04 

40002 

40002 



20 


LIBRARY. 

40070 

00 

00024 

OOOOO 





THE FORMAT OF EACH FOUR 

40071 

00 

00000 

OOOOO 

BOSS3 

RJ 

PARAM 

CALL 

WORD SET IS AS FOLLOWS* 

40072 

37 

40230 

40231 


05 

40002 )B 

40002)8 • 

♦WORD 1 

40073 

05 

40002 

40002 



20 



40074 

00 

00024 

OOOOO 





IN NEARLY ALL CASES 

40075 

00 

00000 

OOOOO 

B0SS4 

RJ 

PARAM 

CALL 

THIS WORD HAS THE FORM 

40076 

37 

40230 

40231 


06 

400025B 

40002)8 


40077 

06 

40002 

40002 



20 


RJ PARAM CALL 

40100 

00 

00024 

OOOOO 






40101 

00 

00000 

OOOOO 

SLAP 

RJ 

PARAM 

CALL 

THIS CALLING SEQUENCE 

40102 

37 

40230 

40231 


07 

500008 5 

50000B) 

. LOCATES THE PROPER 

40103 

07 

50000 

50000 



2200BS 


SERVICE ROUTINE ON 

40104 

00 

02200 

OOOOO 





DRUM AND COMPUTES ITS 

40105 

00 

00000 

OOOOO 

DUMP 

RJ 

PARAM 

CALL 

CHECKSUM* IF THE SUM 

40106 

37 

40230 

40231 


10 

4037485 

40374B) 

IS CORRECT* CONTROL IS 

40107 

10 

40374 

40374 



7028) 


TRANSFERRED TO THE 

40110 

00 

00702 

OOOOO 





SERVICE ROUTINE. IF 

40111 

00 

00000 

OOOOO 

SLAPSY 

RJ 

PARAM 

CALL 

THE SUM IS INCORRECT* 

40112 

37 

40230 

40231 
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SLAP 8 

BINARY 

DUPE 

PRINT 

PAPER 

SL 

LOADER 

RELATE 

TAG 


11 

4322OB 5 
241B ! 

43 2 2 OB) 

RJ 

12 

PAR AM 

43461B 5 
301B ) 

CALL 

4346135 

RJ 

13 

PAR AM 
41276B ) 
232B5 

CALL 

41276B5 

RJ 

14 

PARAM 
53373B ) 
304B ) 

CALL 
5337335 

RJ 

15 

PARAM 

53677B} 
440B} 

CALL 
53677B) 

RJ 

16 

PARAM 
54337B) 
3218) 

CALL 
54337B) 

RJ 

17 

PARAM 
52200B) 
352B) 

CALL 

52200B) 

RJ 

20 

PARAM 
41530B5 
162B) 

CALL 

4153OB ) 

RJ 

21 

PARAM 

5301IB 5 
362B5 

CALL 

53 01 IB) 

RJ 

22 

PARAM 

41712B) 

12B5 

CALL 

417128) 


THE BOSS MASTER FLIP- 
FLOP IS CHECKED# IF 
THE HFF IS Z ER0 * THE 
MACHINE STOPS ON AN 
MSO WITH PA Is = 000 02 * 

IF THE l IFF IS NON-ZERO 
IT IS ASSUMED THAT THE 
UN I SERVO NUMBER OF THE 
MAIN LIBRARY IS IN 
THE MFF (BO-835 AND 
THE ROUTINE IN QUES¬ 
TION IS SELECTIVELY 
RESTORED FROM THE MAIN 
LIBRARY* THE SERVICE 
REQUESTED IS THEN 
PERFORMED* 

IN CERTAIN CASES WHEN 
BOSS ROUTINES ARE 
INVOLVED* CHECKSUMS 
ARE NOT COMPUTED BY 
THE CALL ROUTINE. 

WORD 1 MERELY TRANSFRS 
CONTROL TO BOSS DIR¬ 
ECTLY. 


WORD 2 

THE FORMAT OF THIS 
WORD IS 

OP U V 
CODE STORE START 

WHERE CODE=DRUMSTART 
MINUS 40000. CODE IS 
USED TO SELECTIVELY 
RESTORE THE ROUTINE 


40113 

11 

43220 

43220 

40114 

00 

00241 

00000 

40115 

00 

00000 

00000 

40116 

37 

40230 

40231 

40117 

12 

43461 

43461 

40120 

00 

00301 

00000 

40121 

00 

00000 

00000 

40122 

37 

40230 

40231 

40123 

13 

41276 

41276 

40124 

00 

00232 

00000 

40125 

00 

00000 

00000 

40126 

37 

40230 

40231 

40127 

14 

53373 

53373 

40130 

00 

00304 

00000 

40131 

00 

00000 

00000 

40132 

37 

40230 

40231 

40133 

15 

53677 

53677 

40134 

00 

00440 

00000 

40135 

00 

00000 

00000 

40136 

37 

40230 

40231 

40137 

16 

54337 

54337 

40140 

00 

00321 

00000 

40141 

00 

00000 

00000 

40142 

37 

40230 

40231 

40143 

17 

52200 

52200 

40144 

00 

00352 

00000 

40145 

00 

00000 

00000 

40 146 

37 

40230 

40231 

40147 

20 

41530 

41530 

40150 

00 

00162 

00000 

40151 

00 

00000 

00000 

40152 

37 

40230 

40231 

40153 

21 

53011 

53011 

40154 

00 

00362 

00000 

40155 

00 

00000 

00000 

40156 

37 

40230 

40231 

40157 

22 

41712 

41712 

40160 

00 

00012 

00000 
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FROM TAPE« STORE IS 

40161 

00 

00000 

00000 

LOADCL 

RJ 

PARAM 

CALL 

THE INITIAL DRUM 

40162 

37 

40230 

40231 


23 

41724B) 

41724B5 

STORAGE ADDRESS OF THE 

40163 

23 

41724 

41724 



78) 


ROUTINE* START IS THE 

40164 

00 

00007 

00000 





ADDRESS TO WHICH CON¬ 

40165 

00 

00000 

00000 

WORD2Q 

RJ 

PARAM 

CALL 

TROL IS TRANSFERRED 

40166 

37 

40230 

40231 


24 

41733B ) 

417338) 

AFTER THE CHECKSUM IS 

40167 

24 

41733 

41733 



78) 


FOUND TO BE CORRECT* 

40170 

00 

00007 

00000 






40171 

00 

00000 

00000 

FILEND 

RJ 

PARAM 

CALL 


40172 

37 

40230 

40231 


25 

41742B) 

41742B) 

*WORD 3 

40173 

25 

41742 

41742 



26B 5 



40174 

00 

00026 

00000 





THE U-ADDRESS OF THIS 

40175 

00 

00000 

00000 

CITS IM 

RJ 

PARAM 

CALL 

WORD CONTAINS THE 

40176 

37 

40230 

40231 


26 

52552B) 

52552B) 

NUMBER OF WORDS TO 

40177 

26 

52552 

52552 



2375 5 


BE CHECKSUMMED* 

40200 

00 

00237 

00000 






40201 

00 

00000 

00000 

TTC 

RJ 

PARAM 

CALL 


40202 

37 

40230 

40231 


27 

40002B) 

40002B) 

*WORD 4 

40203 

27 

40002 

40002 



20 



40204 

00 

00024 

00000 





THE COMPUTED CHECK¬ 

40205 

00 

00000 

00000 

TRACE 

RJ 

PARAM 

CALL 

SUM IS STORED IN THIS 

40206 

37 

40230 

40231 





CELL BY THE PREPARE 

40207 

00 

00000 

00000 





LIBRARY ROUTINE. 

40210 

00 

00000 

00000 






40211 

00 

00000 

00000 

OPEN 

RJ 

PARAM 

CALL 


40212 

37 

40230 

40231 





IN CERTAIN CASES CHECK¬ 

40213 

00 

00000- 

00000 





SUMMING IS NOT DESIRED 

40214 

00 

00000 

00000 





BECAUSE BOSS OCCUPIES 

40215 

00 

00000 

00000 


RJ 

PARAM 

CALL 

THE DRUM-CORE IMAGE. 

40216 

37 

40230 

40231 





IN THESE CASES* WORDS 

40217 

00 

00000 

00000 





TWO* THREE* AND FOUR 

40220 

00 

00000 

00000 





ARE USED BY THE PREPARE 

40221 

00 

00000 

00000 


RJ 

PARAM 

CALL 

LIBRARY ROUTINE BUT NOT 

40222 

37 

40230 

40231 





BY THE EXECUTIVE 

40223 

00 

00000 

00000 





ROUTINE ON DRUMSTARTS. 

40224 

00 

00000 

00000 






40225 

00 

00000 

00000 

PI 




drum 

40226 

00 

00000 

00000 
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P2 




PARAMETER 


40227 

00 

00000 

00000 

PA RAM 




STORAGES 


40230 

00 

00000 

00000 

CALL 

RJ 

SAVE+5 

SAVE 

THIS ROUTINE IS THE 


40231 

37 

40044 

40037 


RPB 

36 

CELL 1 

BASIC PART OF THE EXEC 


40232 

75 

30044 

00001 


TP 

L+l 

CELL1 

UTIVE ROUTINE. A*Q*F1» 


40233 

11 

40234 

00001 


SETL 


1 

AND PART OF CORE ARE 






INCORE 

SP 

PARAM 

15 

SAVED IN DC I AND THEN 

40234 

00001 

31 

40230 

00017 


TP 

DRUMST+2 

EXIT+1 

THE ROUTINE TAKES IT¬ 

40235 

00002 

11 

40002 

40035 


TU 

A 

L+2 

SELF TO CORE. THEN 

40236 

00003 

15 

32000 

00005 


RPB 

3 

L+2 

3 PARAMETER WORDS 

40237 

00004 

75 

30003 

00006 


TP 


LOCATE 

(WORDS TWO* THREE* AND 

40240 

00005 

11 

00000 

00044 


TP 

LOCATE+1 

Q 

FOUR ABOVE 5 ARE BROUGHT 

40241 

00006 

11 

00045 

31000 


QT 

UMSK 

A 

DOWN FROM DRUM. THESE 

40242 

00007 

51 

00042 

32000 


AT 

JOF2 

CKSUMR 

WORDS ARE THEN USED TO 

40243 

00010 

35 

00041 

00013 


TU 

LOCATE 

CKSUMR+1 

LOCATE AND CHECKSUM THE 

40244 

00011 

15 

00044 

00014 


RS 

A 

A 

PROPER ROUTINE ON DRUM. 

40245 

00012 

23 

32000 

32000 

CKSUMR 

RP2 


L+2 

THE COMPUTED CHECKSUM 

40246 

00013 

75 

20000 

00015 


SA 



IS COMPARED WITH THE 

40247 

00014 

32 

00000 

00000 


TP 

A 

A 

CONTENT OF WORD FOUR 

40250 

00015 

11 

32000 

32000 


EJ 

LOCATE+2 

OK 

(THE PREVIOUSLY COMPUT 

4025^ 00016 

43 

00046 

00033 


SP 

LOCATE 

6 

ED CHECKSUM)* IF THE 

40252 

00017 

31 

00044 

00006 


LTL 


LOCATE 

TWO COMPARE* CONTROL 

40253 

00020 

22 

00000 

00044 


SP 

MFF 


IS TRANSFERRED TO THE 

40254 

00021 

31 

40036 

00000 


ZJ 

BOSSIN 

NOBOSS 

ADDRESS SPECIFIED IN 

40255 

00022 

47 

00025 

00023 

NOBOSS 

SP 

LOCATE 


THE V-ADDRESS OF WORD 2 

40256 

00023 

31 

00044 

00000 


MS 


2 

ABOVE {AFTER RESTORING 

40257 

00024 

56 

00000 

00002 

BOSSIN 

TP 

DC I 

COZY+1 

A* Q, FI* AND CORE). 

40260 

00025 

11 

41770 

40312 


TP 

DC I+2 

COZY+2 

IF THE TWO DO NOT COMP 

40261 

00026 

11 

41772 

40313 


TP 

TPTABL+11 

DC I 

ARE* THE BOSS MASTER 

40262 

00027 

11 

40036 

41770 


TP 

LOCATE 

DC I+2 

FLIP-FLOP IS CHECKED. 

40263 

00030 

11 

00044 

41772 


TP 

PARAM 

COZY 

IF IT IS ZERO, THE CODE 

40264 

00031 

11 

40230 

40311 


MJ 


OUTCOR 

WORD IS PUT IN A AND 

40265 

00032 

45 

00000 

40302 

OK 

TV 

LOCATE 

CKSOUT+1 

THE ROUTINE STOPS WITH 

40266 

00033 

16 

00044 

40301 


TP 

DC I 

Q 

PAK=2* IF IT IS NON¬ 

40267 

00034 

11 

41770 

31000 


SP 

DCI + 1 

36 

ZERO* IT IS ASSUMED 

40270 

00035 

31 

41771 

00044 


SA 

DC I+2 


THAT BOSS IS IN CONTROL 

40271 

00036 

32 

41772 

00000 


RPB 

NDCI 

SETF1 

AND THE SELECTIVE 

40272 

00037 

75 

31224 

40277 


TP 

DC 1+4 

CELL1 

RESTORE IS USED. AFTER 

40273 

00040 

11 

41774 

00001 



OPERATIONS PACKAGE PAGE 6 OF 7 


JOF2 

RP2 


CKSUMR+2 

THE SELECTIVE RESTORE 

40274 

00041 

75 

20000 

00015 

UMSK 

B15 

77777 


IS ACCOMPLISHED* THE 

40275 

00042 

00 

77777 

00000 

CR 



LOAD+1 

SERVICE REQUESTED IS 

40276 

00043 

00 

00000 

40057 

LOCATE 

RSRV 


3 

DONE WITHOUT STOPPING* 







SETL 


S 







SETF1 

TP 

DC I+3 

CELLO 



40277 

11 

41773 

00000 

CKSOUT 

RJ 

L 

L + l 

CORE IS PRESERVED DUR¬ 


40300 

37 

40300 

40301 


MJ 


EXIT 

ING ANY SELECTIVE RES¬ 


40301 

45 

00000 

40034 

OUTCOR 

TP 

CR 

PARAM 

TORE* BUT NOT DURING 


40302 

11 

00043 

40230 


RJ 

RESTOR+6 

CALL+1 

A NORMAL RESTORE. ON A 


40303 

37 

40054 

40232 


TP 

COZY 

PARAM 

NORMAL RESTORE SECOND 


40304 

11 

40311 

40230 


TP 

COZY+1 

Q 

CORE IS USED AS A TRAN 


40305 

11 

40312 

31000 


SS 

A 


SFER BUFFER. NO ATTEMPT 


40306 

34 

32000 

00000 


SA 

COZY+2 


IS MADE TO PRESERVE THE 


40307 

32 

40313 

00000 


MJ 


CALL 

INITIAL CONTENT OF THIS 


40310 

45 

00000 

40231 

COZY 




SPACE. 


40311 

00 

00000 

00000 







40312 

00 

00000 

00000 







40313 

00 

00000 

00000 

READDR 

RJ 

SAVE+5 

SAVE 

THIS ROUTINE READS ONE 


40314 

37 

40044 

40037 


RPB 

16 

170 5 B 

BLOCK OF TAPE IN THE 


40315 

75 

30020 

00170 


TP 

L+l 

170) B 

FIXED BLOCK MODE FROM 


40316 

11 

40317 

00170 


SETL 


170 5 B 

THE UNISERVO SPECIFIED 







SP 

Q 

11 

IN LOW Q. THE BLOCK IS 

40317 

00170 

31 

31000 

00013 


TV 

A 

UNS 

READ INTO CELL ZERO 

40320 

00171 

16 

32000 

00205 


LA 

UNS 

1 

THRU 167 AND CONTROL 

40321 

00172 

54 

00205 

00001 


EF 


UNS 

IS TRANSFERRED TO CELL 

40322 

00173 

17 

00000 

00205 

R 

ER1 


CELLO 

ZERO. IF A PARITY 

40323 

00174 

76 

10000 

00000 


RA 

R 

LOCI 

ERROR OCCURS WHILE 

40324 

00175 

21 

00174 

00206 


IJ 

L167 

R 

READING THIS BLOCK* THE 

40325 

00176 

41 

00207 

00174 


ERO 


A 

MACHINE STOPS WITH 

40326 

00177 

76 

00000 

32000 


ZJ 

L+l 

L+2 

PAK=00001• 

40327 

00200 

47 

00201 

00202 


MS 


1 


40330 

00201 

56 

00000 

00001 


SP 

DCI+1 

36 


40331 

00202 

31 

41771 

00044 


SA 

DC1+2 


AFTER THE FIRST BLOCK 

40332 

00203 

32 

41772 

00000 


MJ 


CELLO 

HAS CONTROL* A PARITY 

40333 

00204 

45 

00000 

00000 

UNS 

B 

010030104000 


ERROR WILL CAUSE THE 

40334 

00205 

01 

00301 

04000 

LOCI 



1 

TAPE TO ROCK WITHOUT 

40335 

00206 

00 

00000 

00001 

L1.67 



167B) 

STOPPING. 

40336 

00207 

00 

00000 

00167 
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TPTABL 

EQLS 

MFF-11 


RDSYMB 

EQLS 

46276B) 


NDCI 

EQLS 

660 

THE LIBRARY TAPE* EXCEPT 

CELLO 

EQLS 


FOR THE FIRST BLOCK* IS 

CELL1 

EQLS 

1 

READ IN THE VARIABLE 

DC I 

EQLS 

END 

41770B) 

BLOCK MODE. 



1103AF-OPS-00001S 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 


CODE: 

STOPS: 

COMMENTS: 


LOAD LIBRARY FROM MAGNETIC TAPE. 

Read one block of tape (fixed mode) from a specified 
Uniservo and transfer control to F^. 

1. Clear console. 

2. Set PAK » 1:0000. 

3. Set Q * input tape. 

it. Set A - code number if selective restore desired. 

Set A * 0 if entire restore desired. 

5. Depress start button. 

None. 

PAK ■ U0000, Success stop (tape rewinds). 

PAK = 00001, Parity failure on first block. 

PAK ” 00C02, checksum failure on restore. 

Selective restore is not available on an abnormal drum start. 
On the selective restore, core is preserved; the entire 
restore does not preserve core. 



1103AF-0P3-00001S 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 


CODE: 

STOPS: 

COMMENTS: 


SLAP 

Assembles a symbolic program from a magnetic tape prepared 
on the Card-to~Tape Converter# The output consists of the 
symbolic program with a side-by-side octal translation of 
the program# An octal tape is available as optional output. 

1# Clear console. 

2. Set PAK * U0007. 

3* Set Q 

a. ) 0 input tape. 

b. ) Qy » symbolic tape, 
lu Set A 

a. ) Ay * octal output tape. 

b. ) A * 0, no octal output. 

5# Depress start button* 

07. 

PAK * liOOll, Success stop. 

The input tape will rock without changing bias in case of 
parity errors. 



1103AF-0PS-O00O1 


NAME* 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 


CODE: 

STOPS: 

COMMENTS: 


OCTAL DUMP. 

Prepares an octal XS3 tape of the information stored in core 
or drum. 

1. Clear console. 

2. Set PAK - U0010. 

3. Depress start button. 

U. At M30 stop, with (PAK) * 17030, set u and v addresses 
of Q with the limits of the dump. 

Set the low order position of A with the desired uniservo 
number. 

6. Depress start button. 

10 . 

PAK ■ 17030, Console entry stop. 

PAK “ UOOOO, Success stop. 

The dump is sequential from u through v. The u and v limits 
may be core or drum addresses, but not a combination of the 
two. Any lines of output that are all zero are omitted; if 
the memory to be dumped is all zero, the words ALL ZERO are 
written on the output tape. If A * 0, uniservo #5 is used. 

If v of Q equals zero, the dump is from the address specified 
in u of Q to the end of that band. 

No printer stop is written arid the output tape is not rewound 
at completion of a dump. Core is preservod. 



DMPENT 

OCTDMP 

CORE 


LIMTAB 

SKIN 


OCTAL 

. DUMP 


SETL 

40374B} 

40374B) 

LT 


DC I 

LT1 


DCI + 1 

TP 

Q 

DCI + 2 

TP - 

FI 

DCI + 3 

RS 

Q 

0 

RPB 

640 

L+2 

TP 

BUF 

DC 1+24 

RPB 

503 

CORE-4 

TP 

L+l 

CORE-4 

SETL 


1701IB } 

TP 

MFF 

A 

ZJ 

OCTDMP 

CORE 

RJ 

CORE+3 

CORE 

MJ 


LIMTAB-3 

MJ1 


L+5 

MJ2 


L+6 

MJ3 


L+7 

RJ 

L 

L+l 

MS 


L+7 

TP 

ON 

ONOFF 

MJ 


CORE+1 

TP 

ON 

ONOFF+1 

MJ 


CORE+2 

TP 

ON 

ONOFF+2 

MJ 


CORE+3 

TP 

A 

PARAM 

TP 

0 

PARAM+1 

TP 

PARAM 

A 

ZJ 

L+2 

L+l 

TP 

L (5} 

A 

LA 

A 

12 

AT 

EF 

EF 

TP 

PARAM+1 

LIM 

RPV 

34 

L+2 

TP 

L (0 J 

CHAR 

TP 

L (0) 

LCT 

TU 

LIM 

LCT 
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OCTAL DUMP 
SAVE 

ACCUMULATOR 
Q-REGISTER 
AND FI 

CLEAR A AND Q 
PRESERVE CORE IN 
DRUM CORE IMAGE 
BRING PROGRAM FROM 
DRUM INTO CORE 

TEST PROGRAM CONTROLLED 
DUMP OR NOT 
RJ FOR NO-STOP DUMP 
GO DUMP 
TEST IF ANY 
MJ SWITCHES 
ARE ON 

DUMMY FOR NO STOP DUMP 
STOP FOR LIMIT AND SERVO 
MJ1 ON 

MJ2 ON 

MJ3 ON 

SAVE 

LIMITS AND UNISERVO 
TEST UNISERVO 
SELECTION IN A 
SET UN ISERVO 5 
IF ACCUMULATOR = 0 
FORM EF WRITE FREE RUN 
SAVE DUMP LIMITS 
CLEAR CHARACTER* 

LIMIT* AND FLAG TABLES 
FORM 

BXXXX—OOOOO 


12 



40374 

22 

00000 

41770 


40375 

22 

10000 

41771 


40376 

11 

31000 

41772 


40377 

11 

00000 

41773 


40400 

23 

31000 

31000 


40401 

75 

31200 

40403 


40402 

11 

16600 

42020 


40403 

75 

30767 

17011 


40404 

11 

40405 

17011 

40405 

17011 

11 

40036 

32000 

40406 

17012 

47 

17013 

17015 

40407 

17013 

37 

17020 

17015 

40410 

17014 

45 

00000 

17032 

40411 

17015 

45 

10000 

17022 

40412 

17016 

45 

20000 

17024 

40413 

17017 

45 

30000 

17026 

40414 

17020 

37 

17020 

17021 

40415-1-7021 

56 

OOOOO 

17030 

40416 

17022 

11 

17502 

17477 

40417 

17023 

45 

OOOOO 

17016 

40420 

17024 

11 

17502 

17500 

40421 

17025 

45 

OOOOO 

17017 

40422 

17026 

11 

17502 

17501 

40423 

17027 

45 

OOOOO 

17020 

40424 

17030 

11 

32000 

40226 

40425 

17031 

11 

31000 

40227 

40426 

17032 

11 

40226 

32000 

40427 

17033 

47 

17035 

17034 

40430 

17034 

11 

17671 

32000 

40431 

17035 

54 

32000 

00014 

40432 

17036 

35 

17601 

17601 

40433 

17037 

11 

40227 

17660 

40434 

17040 

75 

10042 

17042 

40435 

17041 

11 

17672 

17000 

40436 

17042 

11 

17672 

17670 

40437 

17043 

15 

17660 

17670 



STRLIM 

DOLIM 

R777T 

FIND 

BMPBND 

1STWD 


OCTAL DUMP 


RJ 

FIND 

87777 

TP 

A 

LIMTAB 

TJ 

LIM 

BMPBND 

TV 

L-2 

L+8 

TP 

L(7777Bi 

Q 

RA 

Q 

7MASKS+7 

QT 

LIM 

A 

ZJ 

L+4 

L+l 

RA 

LIM 

LI7777B) 

TP 

7MASKS+7 

Q 

QS 

LIMTAB 

LIM 

TP 

LIM 

FILL 

TP 

LIMTAB 

A 

ZJ 

L+l 

OFF+2 

RJ 

L 

L+4 

TJ 

C0RE2+1 

L+2 

RJ 

EXSWAP 

SWAP 

TP 

SKIPHD 

HEADER 

TP 

LIMTAB 

LIM 

RPB 

4 

1STWD 

TP 

LIMTAB+1 

LIMTAB 

LQ 

LCT 

A+21 

TP 

7MASKS+7 

Q 

QS 

A 

LCT 

RA 

LCT 

L{7777B} 

MJ 


FILL 

SA 

ONEV 

15 

TU 

A 

LIM 

RA 

STRLIM 

ONEV 

MJ 


STRLIM—3 

TP 

7MASKS+2 

Q 

QS 

LIM 

L+l 

TP 

FILL 

1STW0R 

QT 

LIM 

A 

EJ 

C0RE2 

SWAP2 

ZJ 

L+l 

FORM 

TP 

LIM 

SWAPLM 

SP 

A 

27 
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FIND B7777 
STORE 1ST LIMIT 
IS IT TOO BIG »NO—BUMP 
YES*TOO LARGE SO 
ASSUME LAST LIMIT 
FORM V MASK IN Q 
TEST V OF LIMIT 
EQUAL TO ZERO 
YES» ADD 07777 
INSERT BAND NUMBER*LIMIT 
NOW EQUALS BXXXX-87777 
STORE LAST LIMIT 
PROCESS LIMITS IN TABLE 
TEST LAST LIMIT =0 
1-SHOT BYPASS SWITCH 
DONT RESWAP 1ST CORE 
RESWAP DRUM 

SET SKIP HEADER NEXT LlM 
SET LIMIT FOR THIS PASS 
AND MOVE NEXT LIMIT 
INTO POSITION 
SUBROUTINE TO FORM 
BXXXX-B7777 FROM 
INPUT BXXXX—00000 
RESULT LEFT IN A 
AND CELL LCT 
ADVANCE LIMIT 
TO NEXT BAND 
AS IN 47777 
TO 50000 
SAVE THE FIRST 
WORD OF THE BAND 
FOR HEADER OUTPUT 
TEST IF SWAP 
IS NECESSARY TO DUMP 
DESIRED MEMORY 
SET SWAP LIMITS 
FORM 


.2 

40440 

17044 

37 

17075 

17071 

40441 

17045 

11 

32000 

17035 

40442 

17046 

42 

17660 

17076 

40443 

17047 

16 

17045 

17057 

40444 

17050 

11 

17673 

31000 

40445 

17051 

21 

31000 

17611 

40446 

17052 

51 

17660 

32000 

40447 

17053 

47 

17057 

17054 

40450 

17054 

21 

17660 

17673 

40451 

17055 

11 

17611 

31000 

40452 

17056 

53 

17035 

17660 

40453 

17057 

11 

17660 

30000 

40454 

17060 

11 

17035 

32000 

40455 

17061 

47 

17062 

17571 

40456 

17062 

37 

17062 

17066 

40457 

17063 

42 

17630 

17065 

40460 

17064 

37 

17560 

17525 

40461 

17065 

11 

17136 

17416 

40462 

17066 

11 

17035 

17660 

40463 

17067 

75 

30004 

17102 

40464 

17070 

11 

17036 

17035 

40465 

17071 

55 

17670 

32025 

40466 

17072 

11 

17611 

31000 

40467 

17073 

53 

32000 

17670 

40470 

17074 

21 

17670 

17673 

40471 

17075 

45 

OOOOO 

30000 

40472 

17076 

32 

17620 

00017 

40473 

17077 

15 

32000 

17660 

40474 

17100 

21 

17045 

17620 

40475 

17101 

45 

00000 

17042 

40476 

17102 

11 

17604 

31000 

40477 

17103 

53 

17660 

17104 

40500 

17104 

11 

30000 

17664 

40501 

17105 

51 

17660 

32000 

40502 

17106 

43 

17627 

17122 

40503 

17107 

47 

17110 

17137 

40504 

17110 

11 

17660 

17662 

40505 

17111 

31 

32000 

00033 



SWAP 2 


SKIPHD 

FORM 


OCTAL 

. DUMP 


LTO 


A 

AT 

SWPXS3 

PRLOCX 

TP 

LIM 

Q 

QT 

UVM 

LIM 

RJ 

L 

L + l 

RJ 

EXSWAP 

SWAP 

TV 

OFF 

OFF+2 

MJ 


FORM 

RJ 

1STWD+12 

1STWD+6 

TP 

L {26) 

CHAR 

RJ 

EXSWAP 

SWAP+1 

TU 

OFF+4 

MOVE+3 

TV 

DMPENT+6 

MOVE+5 

TP 

L (4 ) 

CHAR 

RJ 

EXSWAP 

MOVE 

RJ 

L 

L + 2 

MJ 


OFF+3 

TV 

L+2 

OFF+2 

MJ 


FORM' 

SWAP2+1 

MJ 


EXHED 

TP 

RST+4 

RSTWF 

RPV 

17 

L+2 

TP 

L (0 I 

FLAG 

TV 

RST + 3 

PICFLG+5 

TP 

ONEV 

SKIN 

TP 

L(5 ) 

LINECT 

RJ 

EXCH 

CONHED 

SP 

LIM 


5A 

ONEV 

15 

TU 

A 

LAST CK 

TP 

LIM 

Q 

QT 

MASK1 

A 

LT1 

9 

LOC 

QT 

MASK2 

A 

TU 

A 

CKZER+2 

LA 

A 

9 

SS 

LOC 
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DUMMIED XS3 OF 
PRLOC TO PRINT NUMBER 
OF DRUM OR 2ND CORE 
SET CORE LIMITS 
FOR DUMP AFTER SWAP 
SWAP DRUM TO CORE 
SET RESWAP SWITCH 
60 SETUP AND DUMP 
SWAP SETUP FOR 2ND CORE 
SWAP PART OF 2ND CORE 
WITH FIRST CORE 
PRESET 

DRUM CORE IMAGE 
SWAP 

SWAP DRUM CORE IMAGE 
1-SHOT BYPASS FOR SWAP 
EXIT ON RESWAP 
SET SWAP 2 RESWAP 
GO FORM FLAGS WHICH WILL 
SPECIFY ZERO SUPPRESS 
SKIP HEADER PRESETTER 
THIS PORTION FORMS 
A TABLE OF FLAGS WHICH 
SPECIFIES THE LINE 
SUPPRESSION OF COMPLETE 
LINES OF ZERO OUTPUT 
THE FLAG FORMAT IS 
4 BITS- ADDRESS IDENT 
32 BITS»1 PER LINE OF 
OUTPUT*IF ANY LINE IS 
ALL ZERO THE BIT IS 
ZERO»IF NOT THE BIT 
IS ONE 

THE FLAG WORDS ARE EXAM 
INED AFTER TAPE'ST ARTS 
SET 1ST ADDRESS MOD 8 
SETUP LEADING 
ZERO BITS IN FLAG 


12 

40506 

17112 

22 

00000 

32000 

40507 

17113 

35 

17622 

17665 

40510 

17114 

11 

17660 

31000 

40511 

17115 

51 

17621 

17660 

40512 

17116 

37 

17116 

17117 

40513 

17117 

37 

17560 

17525 

40514 

17120 

16 

17567 

17571 

40515 

17121 

45 

00000 

17137 

40516 

17122 

37 

17116 

17110 

40517 

17123 

11 

17674 

17000 

40520 

17124 

37 

17560 

17526 

40521 

17125 

15 

17573 

17550 

40522 

17126 

16 

40402 

17552 

40523 

17127 

11 

17675 

17000 

40524 

17130 

37 

17560 

17545 

40525 

17131 

37 

17131 

17133 

40526 

17132 

45 

OOOOO 

17572 

40527 

17133 

16 

17135 

17571 

40530 

17134 

45 

OOOOO 

17137 

40531 

17135 

00 

OOOOO 

17123 

40532 

17136 

45 

00000 

17465 

40533 

17137 

11 

17377 

17343 

40534 

17140 

75 

10021 

17142 

40535 

17141 

11 

17672 

17014 

40536 

17142 

16 

17376 

17317 

40537 

17143 

11 

17620 

17041 

40540 

17144 

11 

17671 

17661 

40541 

17145 

37 

17415 

17400 

40542 

17146 

31 

17660 

OOOOO 

40543 

17147 

32 

17620 

00017 

40544 

17150 

15 

32000 

17235 

40545 

17151 

11 

17660 

31000 

40546 

17152 

51 

17634 

32000 

40547 

17153 

22 

10011 

17666 

40550 

17154 

51 

17635 

32000 

40551 

17155 

15 

32000 

17217 

40552 

17156 

54 

32000 

00011 

40553 

17157 

34 

17666 

00000 



BMPBY8 

ALZERO 

FIN 

ERASE 

CKZER 


OCTAL 

. DUMP 


SN 

A 

45 

AT 

L (31) 

CHAR 

TP 

L {0 I 

Q 

TV 

PICFLG+1 

CKZER+9 

MJ 


CKZER 

RA 

CKZER+2 

8U 

TJ 

LASTCK 

CKZER 

TP 

CHAR 

A 

EF 


EF 

TP 

Q 

CHAR+1 

EJ 

L (31 ) 

L+3 

TP 

CHAR+1 

A 

ZJ 

FIN 

L+l 

TP 

FLAG 

A 

ZJ 

HEADER 

ALZERO 

RJ 

EXHED 

HEADER 

EW1 


ALL 

EW1 


ZERO 

RP 

118 

DUMWRT+2 

EW1 


L {0) 

RJ 

EXHED 

HEADER 

SP 

CHAR+1 


TV 

CHAR 

L+l 

LA 

A 

FILL 

TP 

CKZER+9 

L+2 

SA 

LOC 



FILL 

FILL 

TU 

PICFLG-3 

PICFLG 

MJ 


PICFLG 

SP 

L {0 I 


RPU 

8 

L+2 

SA 

FILL 


ZJ 

L+l 

L+2 

RA 

Q 

ONEV 

IJ 

CHAR 

SHFTQ 

SP 

Q 


ZJ 

L+l 

L+4 

SA 

LOC 
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WORD_AS SPECIFIED 
BY LIMIT* FLAG WORDS 
START AT OOOOO AND 
INCREMENT BY 256 DEC 
WORDS = 400 OCTAL 
UP ADDRESS BY 8 
IS IT ABOVE LIMITS 
PLACE INDEX IN A 
START TAPE 

SAVE UNFINISHED FLAG 
TEST INDEX FOR TOTAL FLG 
TEST LAST FLAG 
EQUAL TO ZERO 
TEST IF ALL FLAGS 
EQUAL ZERO 
WRITE HEADER 
WRITE-ALL- ZERO- 
IF DESIRED DUMP 
DOES CONTAIN ONLY 
ZERO# THEN EXIT 
WRITE HEADER 
FILL 

LAST FLAG WITH 
ZERO TO COMPLETE IT 
SET STORE LAST FLAG 
ADD ADDRESS IDENT 8ITS 
STORE LAST FLAG 
PRESET START AT FLAG 1 
MAKE PASS SETTING UP 
1ST LINE OF OUTPUT 
CHECK 

8 CELLS ZERO 
IF THEY ARE 
NOT ZERO ADD A BIT 
32 BITS PER FLAG 
NEW FORMED FLAG TO A 
TEST FLAG ZERO 
IF NOT ZERO ADD IDENT 


12 


40554 

17160 

33 

32000 

00055 

40555 

17161 

35 

17676 

17000 

40556 

17162 

11 

17672 

31000 

40557 

17163 

16 

17313 

17226 

40560 

17164 

45 

00000 

17215 

40561 

17165 

21 

17217 

17641 

40562 

17166 

42 

17235 

17215 

40563 

17167 

11 

17000 

32000 

40564 

17170 

17 

00000 

17601 

40565 

17171 

11 

31000 

17001 

40566 

17172 

43 

17676 

17175 

40567 

17173 

11 

17001 

32000 

40570 

17174 

47 

17204 

17175 

40571 

17175 

11 

17014 

32000 

40572 

17176 

47 

17416 

17177 

40573 

17177 

37 

17465 

17416 

40574 

17200 

77 

10000 

17636 

40575 

17201 

77 

10000 

17637 

40576 

17202 

75 

00166 

17240 

40577 

-3r7203 

77 

10000 

17672 

40600 

17204- 

37 

17465 

17416 

40601 

17205 

31 

17001 

OOOOO 

40602 

17206 

16 

17000 

17207 

40603 

17207 

54 

32000 

30000 

40604 

17210 

11 

17226 

17212 

40605 

17211 

32 

17666 

OOOOO 

40606 

17212 

00 

30000 

30000 

40607 

17213 

15 

17307 

17312 

40610 

17214 

45 

OOOOO 

17312 

40611 

17215 

31 

17672 

OOOOO 

40612 

17216 

75 

20010 

17220 

40613 

17217 

32 

30000 

OOOOO 

40614 

17220 

47 

17221 

17222 

40615 

17221 

21 

31000 

17620 

40616 

17222 

41 

17000 

17234 

40617 

17223 

31 

31000 

OOOOO 

40620 

17224 

47 

17225 

17230 

40621 

17225 

32 

17566 

OOOOO 



SHFTQ 

LASTCK 

OUMWRT 


PICKUP 


STORE 


DOMOR 


OCTAL 

. DUMP 


LT1 


FILL 

RA 

L-l 

ONEV 

RA 

LOC 

LOCUP 

TP 

L (0 5 

Q 

TP 

Lf 31 ) 

CHAR 

MJ 


BMPBY8 

GJ 

BMPBY8 

BMPBY8 

SA 



RP 

FILL 

L + 2 

EW1 


L ( 0 5 

EF 


STOPTP 

MJ 


DOLIM 

SP 

LOC 

18 

TU 

A 

PICKUP 

TV 

DOMOR+8 

STORE 

TV 

D0M0R+14 

STORE+1 

TP 

FILL 

Q 

RPB 

12 

L+2 

OT 

7MASKS 

CHAR 

SP 

XS31 


RPU 

11 

L+2 

SA 

CHAR 

3 

SA 

CHAR+11 


LT 


FILL 

AT 

XS32 

FILL 

RA 

PICKUP 

ONEU 

RA 

STORE 

L { 2 ) 

AT 

DUMMY 

STORE+1 

TJ 

DUMTST 

PICKUP 

LQ 

PRLOC 

6 

EW1 


Q 

TP 

L C 3 3 

11 

LQ 

BUF 

24 

QT 

MA 

A 

LQ 

3UF+1 

24 

LQ 

BUF+2 

12 

LQ 

BUF+3 

12 

EW1 


A 
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STORE FLAG AND BUMP 
STORE FOR NEXT FLAG 
BUMP ADDRESS IDENTIFICT 
TO START OF NEXT FLAG 
E.G. 00400 TO 01000 
DO NEXT FLAG 
SHIFT FLAG ONE PLACE 
CHECKER FOR COMPLETION 
DUMMY 

WRITES TO FILL LAST BLK 
STOP TAPE 

GO TO EXAMINE NEXT LIMIT 
SETUP 

THE LOCATION OF THE 
NEXT LINE BY EXAMINING 
THE LOCATION BITS 
E.G* LOCATION BITS FOR 
01400 ARE 001100000. 

FORM THE XS3 
TRANSLATION OF 
8 WORDS EQUALS 
ONE LINE OF OUTPUT 
THE LOCATION OF THE 
FIRST WORD IS SPECIFIED 
BY THE LOCATION BITS 
THE LOCATION SITS ARE 
FORMED FROM THE IDENT 
BITS AND THE POSITION 
OF ONES AND ZEROS IN 
THE FLAG WORDS 
WRITE LOCATION OF OUTPUT 
SET INDEX TO 3 
BUILD UP FORMAT 
OF OUTPUT BETWEEN 
SUCCESSIVE EXTERNAL 
WRITES. IN SOME 
CASES MAX TIMES ARE USE 
416-MICROSECONDS 


12 


40622 

17226 

22 

10000 

30000 

40623 

17227 

21 

17226 

17620 

40624 

17230 

21 

17666 

17640 

40625 

17231 

11 

17672 

31000 

40626 

17232 

11 

17676 

17000 

40627 

17233 

45 

00000 

17165 

40630 

17234 

44 

17165 

17165 

40631 

17235 

32 

00000 

00000 

40632 

17236 

75 

30000 

17240 

40633 

17237 

77 

10000 

17672 

40634 

17240 

17 

00000 

17645 

40635 

17241 

45 

00000 

17060 

406 36 

17242 

31 

17666 

00022 

40637 

17243 

15 

32000 

17246 

4Q640 

17244 

16 

17276 

17255 

40641 

17245 

16 

17304 

17256 

40642 

17246 

11 

30000 

31000 

40643 

17247 

75 

30014 

17251 

40644 

17250 

51 

17602 

17000 

40645 

17251 

31 

17631 

00000 

40646 

17252 

75 

20013 

17254 

40647 

17253 

32 

17000 

00003 

40650 

17254 

32 

17013 

00000 

40651 

17255 

22 

00000 

30000 

40652 

17256 

35 

17632 

30000 

40653 

17257 

21 

17246 

17616 

40654 

17260 

21 

17255 

17677 

40655 

17261 

35 

17646 

17256 

40656 

17262 

42 

17647 

17246 

40657 

17263 

55 

17667 

00006 

40660 

17264 

77 

10000 

31000 

40661 

17265 

11 

17700 

17670 

40662 

17266 

55 

16600 

00030 

40663 

17267 

51 

17650 

32000 

40664 

17270 

55 

16601 

00030 

40665 

17271 

55 

16602 

00014 

40666 

17272 

55 

16603 

00014 

40667 

17273 

77 

10000 

32000 



OCTAL DUMP 


PICFLG 


QT 

MB 

ERASE 

TP 

MA 

Q 

QS 

BUF+1 

BUF 

TP 

MB 

Q 

QS 

BUF+2 

BUF+3 

TP 

MC 

Q 

QT 

BUF+1 

A 

TP 

MD 

Q 

QA 

BUF+2 

BUF+1 

EW1 


BUF 

IJ 

11 

RSTWF+3 

SP 

FLAG 


ZJ 

PICFLG+9 

L+l 

RA 

L+l 

ONEU 

TP 

FILL 

Q 

QT 

ME 

FLAG 

ZJ 

L+l 

LST3 

LQ 

Q 

9 

QT 

MG 

LOC 

RJ 

L 

L+2 

EW1 


BUF+1 

RS 

LOC 

L (3) 

MJ 


L+2 

EW1 


BUF+1 

TP 

MF 

Q 

SF 

FLAG 

CNT 

QT 

A . 

FLAG 

IJ 

SKIN 

L+2 

EW1 


BUF+3 

RA 

LOC 

L (72) 

ST 

CNT 

LOC 

TP 

A 

Q 

QT 

7MASKS+10 

CHAR 

QT 

7MASKS+11 

CHAR+1 

QT 

7MASKS+9 

A 

SP 

A 

3 

SA 

CHAR 

3 

SA 

CHAR+1 
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THE CONVERSION OF 
ALL EIGHT WORDS 
FROM BINARY TO XS3 
IS ACCOMPLISHED 
BETWEEN BLOCKETTES 
THE CONVERSION LOOP 
IS APPROXIMATELY 
NINE AND A HALF 
MILLESECONDS 
422-MICROSECONDS 
INDEX TO LOOP FORMAT 
TEST IF REST OF 
FLAG IS ZERO» IF SO 
ADVANCE TO NEXT FLAG 
MASK OUT NEW ZERO 
AND ONE BITS 
TEST FOR LAST FLAG 
THAT IS * ALL BITS 
ARE ZERO 

SKIP 1ST WRITE FOR SETUP 
410- MICROSECONDS 
FORM NEW LOCATION 
SKIP WRITE OF 
OTHER PATH 
BIT MASK TO Q 
POSITION AND 
REMOVE PRESENT BIT 
SKIP 1ST WRITE FOR SETUP 
406-MICROSECONDS 
LOCATION BITS PLUS 72 
MINUS SF COUNT EQUALS 
THE NEW LOCATION 
BITS* FOR EXAMPLE 
IF PRESENT LOC BITS = 
140 AND THERE IS A LEAD 
ZERO ON ZERO-ONE BITS 
THEN NEW LOC BITS = 142 
THE WORD IDENTIFIED BY 


40670 17274 51 17651 17212 

40671 17275 11 17650 31000 

40672 17276 53 16601 16600 

40673 17277 11 17651 31000 

40674 17300 53 16602 16603 

40675 17301 11 17652 31000 

40676 17302 51 16601 32000 

40677 17303 11 17653 31000 

40700 17304 52 16602 16601 

40701 17305 77 10000 16600 

40702 17306 41 17670 17346 

40703 17307 31 17014 00000 

40704 17310 47 17323 17311 

40705 17311 21 17312 17616 

40706 17312 11 30000 31000 

40707 17313 51 17654 17014 

40710 17314 47 17315 17365 

40711 17315 55 31000 00011 

40712 17316 51 17656 17666 

40713 17317 37 17317 17321 

40714 17320 77 10000 16601 

40715 17321 23 17666 17700 

40716 17322 45 00000 17324 

40717 17323 77 10000 16601 

40720 17324 11 17655 31000 

40721 17325 74 17014 17663 

40722 17326 51 32000 17014 

40723 17327 41 17041 17331 

40724 17330 7? 10000 16603 

40725 17331 21 17666 17701 

40726 17332 36 17663 17666 

40727 17333 11 32000 31000 

40730 17334 51 17614 17000 

40731 17335 51 17615 17001 

40732 17336 51 17613 32000 

40733 17337 31 32000 00003 

40734 17340 32 17000 00003 

40735 17341 32 17001 00000 



OCTAL DUMP 


RSTWF 


LST3 


RST 


CONHED 


AT 

PRLOCX 

PRLOC 

MJ 


BANDWD 

EW1 


ERASE 

MJ 


DUMWRT+4 

EW1 


BUF + 1 

EW1 


BUF+3 

IJ 

11 

L+3 

IJ 

LINECT 

L+2 

TP 

L { 5} 

LINECT 

EW1 


ERASE 

EW1 


BUF+4 

EW1 


BUF+5 

RPB 

4 

DOMOR 

TP 

BUF+12 

BUF 

EW1 


ERASE 

EW1 


BUF+4 

EW1 


BUF+5 

RPB 

6 

DOMOR 

TP 

BUF+6 

BUF 

EW1 


BUF+1 

EW1 


BUF+3 

EW1 


ERASE 

MP 

LINECT 

20U 

TU 

A 

DUMWRT 

MJ 


DUMWRT 

TV 

L+2 

RSTWF 

MJ 


DUMWRT+4 

RSTWF+1 

PICFLG+7 

MJ 


BANDWD 

TP 

DC I 

Q 

RPB 

12 

L+2 

QT 

7MASKS 

CHAR 

SP 

XS31 


RPU 

11 

L+2 

SA 

CHAR 

3 

SA 

CHAR+11 


LTO 


BUF 

AT 

XS32 

BUF+1 


PAGE 7 OF 12 


LOCATION BITS = 01420 
FIRST WORD OF BAND FLOW 
NORMAL FLOW AFTER 1ST 
WORD OF BAND OUTPUT 
WORD 3 WRITE 
WORD 4 WRITE 
8 WORD FORMAT LOOP 
COUNT LINES MODS 
RESTORE LINE COUNT TO 5 
WORD 5 WRITE 
WORD 6 WRITE 
WORD 7 WRITE 
LAST 2 WORDS OF OUTPUT 
TO WORKING POSITION 
WORD 5 WRITE 
WORD 6 WRITE 
WORD 7 WRITE 
FETCH 2ND THREE WORDS 
OF OUTPUT TO WORK ON 
LAST THREE WRITES 
BEFORE GOING TO 
FILLING LAST BLOCK 
LINE COUNT X 20 
SET RP-EW TO 
FILLUP LAST BLOCK 
RESTORE NORMAL FLOW 
AFTER 1ST WORD OF BAND 
RESET 

CONSTANTS FOR 
NORMAL FLOW 
CONVERT THE 
ACCUMULATOR*FI AND 
G-REGISTER TO XS3 
THE CELLS WHICH 
CONTAIN THE A*G*F1 . 

IN BINARY MUST BE 
DCI * DCI+1* DCI+2 AND 
DC I+3 

THE CALLING 


40736 17342 35 17665 17667 

40737 17343 45 00000 17505 

40740 17344 77 10000 17212 

40741 17345 45 00000 17242 

40742 17346 77 10000 16601 

40743 17347 77 10000 16603 

40744 17350 41 17670 17360 

40745 17351 41 17661 17353 

40746 17352 11 17671 17661 

40747 17353 77 10000 17212 

40750 17354 77 10000 16604 

40751 17355 77 10000 16605 

40752 17356 75 30004 17266 

40753 17357 11 16614 16600 

40754 17360 77 10000 17212 

40755 17361 77 10000 16604 

40756 17362 77 10000 16605 

40757 17363 75 30006 17266 

40760 17364 11 16606 16600 

40761 17365 77 10000 16601 

40762 17366 77 10000 16603 

40763 17367 77 10000 17212 

40764 17370 71 17661 17657 

40765 17371 15 32000 17236 

40766 17372 45 00000 17236 

40767 17373 16 17375 17343 

40770 17374 45 00000 17242 

40771 17375 00 00000 17344 

40772 17376 00 00000 17321 

40773 17377 45 00000 17505 

40774 17400 11 41770 31000 

40775 17401 75 30014 17403 

40776 17402 51 17602 17000 

40777 17403 31 17631 00000 

41000 17404 75 20013 17406 

41001 17405 32 17000 00003 

41002 17406 32 17013 00000 

41003 17407 22 00000 16600 

41004 17410 35 17632 16601 



OCT A 

L DUMP 


RA 

CONHED 

ONEU 

RA 

L-3 

L { 2 ) 

RA 

L-3 

L { 2 S 

I J 

INHED 

CONHED 

MJ 


FILL 

EW1 


FF1 

EW1 


L ( 0) 

EW1 


L (0) 

EW1 


ACCUMU 

EW1 


LATOR 

EW1 


L ( 0) 

EW1 


L ( 0) 

EW1 


QREG 

EW1 


ISTER 

RP 

8 

L+2 

EW1 


L (0) 

RP V 

3 

L + 2 

EW1 


MJS 

EW1 


L (0) 

SP 

BUF 

6 

LT 


Q 

EW1 


Q 

SP 

A 

30 

SA 

BUF+1 

6 

LT 


0 

EW1 


Q 

EW1 


A 

EW1 


BUF+2 

EW1 


BUF+3 

EW1 


L {0) 

EW1 


BUF+4 

EW1 


BUF+5 

RP 

8 

L+2 

EW1 


L (0} 

RPV 

3 

L+2 

EW1 


ONOFF 

RP 

29 

L+2 

EW1 


L (0 ? 

EW1 


FONE 
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SEQUENCE IS 
RJ EXCH CONHED 
THE XS3 TRANSLATION 
IS STORED IN THE 
FIRST 8 CELLS OF 6UF 
THE CONTENTS OF THE 
ACCUMULATOR »G~REGISTER 
AND FI AND THE STATUS 
OF THE MJ SWITCHES ARE 
WRITTEN IN THE HEADER 
THE HEADER OCCUPIES 
6 LINES (ONE BLOCK) 

THE CALLING 
SEQUENCE IS 
RJ EXHED HEADER 
THE HEADER IS 
WRITTEN ONLY 
ONCE FOR EACH 
DUMP NO MATTER 
HOW MANY BANDS 
THE DUMP MAY 
COVER 

THE FIRST WORD OF 
BAND LINE IS 
WRITTEN FOR EACH 
BAND OR PORTION 
OF A BAND THAT IS 
' REQUESTED 
THE TRUE CONTENT 
OF FI»CELL 00000» 
APPEARS ONLY 
IN THE HEADER 
THE FIRST WORD 
OF BAND FOR 
1ST CORE IS CELL 
ZERO BUT APPEARS 
ALWAYS THE SAME 
AND NOT FI 
THE FIRST WORD ON 


41005 

17411 

21 

17400 

17616 

41006 

17412 

21 

17407 

17677 

41007 

17413 

21 

17410 

17677 

41010 

17414 

41 

17633 

17400 

41011 

17415 

45 

00000 

30000 

41012 

17416 

77 

10000 

17467 

41013 

17417 

77 

10000 

17672 

41014 

17420 

77 

10000 

17672 

41015 

17421 

77 

10000 

17470 

41016 

17422 

77 

10000 

17471 

41017 

17423 

77 

10000 

17672 

41020 

17424 

77 

10000 

17672 

41021 

17425 

77 

10000 

17472 

41022 

17426 

77 

10000 

17473 

41023 

17427 

75 

00010 

17431 

41024 

17430 

77 

10000 

17672 

41025 

17431 

75 

10003 

17433 

41026 

17432 

77 

10000 

17474 

41027 

17433 

77 

10000 

17672 

41030 

17434 

31 

16600 

00006 

41031 

17435 

22 

00000 

31000 

41032 

17436 

77 

10000 

31000 

41033 

17437 

31 

32000 

00036 

41034 

17440 

32 

16601 

00006 

41035 

17441 

22 

00000 

31000 

41036 

17442 

77 

10000 

31000 

41037 

17443 

77 

10000 

32000 

41040 

17444 

77 

10000 

16602 

41041 

17445 

77 

10000 

16603 

41042 

17446 

77 

10000 

17672 

41043 

17447 

77 

10000 

16604 

41044 

17450 

77 

10000 

16605 

41045 

17451 

75 

00010 

17453 

41046 

17452 

77 

10000 

17672 

41047 

17453 

75 

10003 

17455 

41050 

17454 

77 

10000 

17477 

41051 

17455 

75 

00035 

17457 

41052 

17456 

77 

10000 

17672 

41053 

17457 

77 

10000 

17503 
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EXHED 

FF1 

ACCUMU 

LATOR 

QREG 

ISTER 

MJS 


ONOFF 


ON 

FONE 

COREX 

BANDWD 


SWAP 


EW1 


COREX 

EW1 


5UF+6 

EW1 


BUF+7 

RP 

47 

L + 2 

EW1 


L (0 ) 

RJ 

L 

L+l 

MJ 


CKZER-2 

B30 

37 


B 

242626674767 


B 

462466515401 


B 

015302543032 


B 

346566305401 


B 

014744040101 


B 

014744050101 


B 

014744060101 


B 

010151313101 


B 

010151313101 


B 

010151313101 


B 

010151500101 


B 

310402265154 


B 

300101010101 


TP 

1STWOR 

Q 

RPB 

12 

L + 2 

QT 

7MASKS 

CHAR 

SP 

XS31 


RPU 

11 

L + 2 

SA 

CHAR 

3 

SA 

CHAR+11 


LT 


CHAR 

AT 

XS32 

CHAR+1 

RPV 

3 

L + 2 

EW1 


FIRST 

EW1 


L (0) 

RPV 

2 

L+2 

EW1 


CHAR 

RP 

14 

RST 

EW1 


L (0 5 

TP 

L (31 ! 

CHAR 

TV 

EXSWAP+6 

EXSWAP“ 


THE LINE OF OUTPUT 
WITH ADDRESS 00000 
IS AGAIN NOT THE 
TRUE VALUE 
OF FI 

DUMMY EXIT 
NORMAL FLOW EXIT 
XS3 CONSTANTS 
FOR HEADER 
AND FIRST WORD 
OF BAND LINES 
ISTER 
MJ1 
MJ2 
MJ3 
OFF 
OFF 
OFF 
ON 

FI-COR 

CONVERT THE FIRST WORD 
OF A BAND AND WRITE IT 
OUT ON ONE LINE 
THE REASON THAT THE 1ST 
WORD OF THE BAND IS 
SAVED IS DUE TO THE 
FACT THAT THE PROGRAM 
ALWAYS DUMPS OUT OF 
FIRST CORE. SINCE FI 
IS THE FIRST WORD OF 
CORE> THE FIRST WORD 
OF EACH BAND IS ALWAYS 
WRONG AS IT APPEARS 
ON THE FIRST LINE OF 
OUTPUT. THE CONTENT 
OF FI APPEARS INSTEAD 
SWAP ANY COMPLETE DRUM 
OR 2ND CORE WITH THE 


41054 

17460 

77 

10000 

17504 

41055 

17461 

77 

10000 

16606 

41056 

17462 

77 

10000 

16607 

41057 

17463 

75 

00057 

17465 

41060 

17464 

77 

10000 

17672 

41061 

17465 

37 

17465 

17466 

41062 

17466 

45 

00000 

17213 

41063 

17467 

37 

00000 

00000 

41064 

17470 

24 

25266 

74767 

41065 

17471 

46 

24665 

15401 

41066 

17472 

01 

53025 

43032 

41067 

17473 

34 

65663 

05401 

41070 

17474 

01 

47440 

40101 

41071 

17475 

01 

47440 

50101 

41072 

17476 

01 

47440 

60101 

41073 

17477 

01 

01513 

13101 

41074 

17500 

01 

01513 

13101 

41075 

17501 

01 

01513 

13101 

41076 

17502 

01 

01515 

00101 

41077 

17503 

31 

04022 

65154 

41100 

17504 

30 

01010 

10101 

41101 

17505 

11 

17664 

31000 

41102 

175 06 

75 

30014 

17510 

41103 

17507 

51 

17602 

17000 

41104 

17510 

31 

17631 

00000 

41105 

17511 

75 

20013 

17513 

41106 

17512 

32 

17000 

00003 

41107 

17513 

32 

17013 

00000 

41110 

17514 

22 

00000 

17000 

41111 

17515 

35 

17632 

17001 

41112 

17516 

75 

10003 

17520 

41113 

17517 

77 

10000 

17642 

41114 

17520 

77 

10000 

17672 

41115 

17521 

75 

10002 

17523 

41116 

17522 

77 

10000 

17000 

41117 

17523 

75 

00016 

17373 

41120 

17524 

77 

10000 

17672 

41121 

17525 

11 

17676 

17000 

41122 

17526 

16 

17566 

17556 



HOVE 


EXSWAP 


OFF 


OCTAL 

. DUMP 


TP 

EF-2 

MOVE+3 

TV 

ONEB 

MOVE+3 

TU 

ONEB 

MOVE+1 

TP 

SWAPLM 

Q 

QT 

HI 7S 

A 

SA 

ONEB 


TU 

A 

MOVE+3 

TV 

A 

MOVE+5 

TU 

DOMOR 

MOVE+5 

RPB 

3 

L + 2 

RS 

128S 

ONEU 

RS 

MOVE 

ONEU 

RS 

MOVE+2 

ONEU 

RS 

MOVE+4 

ONEU 

RPB 

128 

L+2 

TP 

FI 

BUF 

RPB 

128 

L+2 

TP 

FILL 

FI 

RPB 

128 

L+2 

TP 

BUF 

FILL 

RA 

MOVE+1 

128S 

RA 

MOVE+3 

128S+1 

RA 

MOVE+5 

128S+2 ' 

RJ 

L 

EXSWAP+1 

IJ 

CHAR 

MOVE 

MJ 


FILL 

RA 

MOVE 

ONEU 

RA 

MOVE+2 

ONEU 

RA 

MOVE+4 

ONEU 

RPB 

3 

L-5 

RA 

128S 

ONEU 

EXSWAP+1 

L + l 

RJ 

EXSWAP 

SWAP 

RJ 

L 

L + l 

RPB 

640 

DMPENT+380 

TP 

DCI+24 

BUF 

SP 

DC I 

36 

SA 

DC I + 1 
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FIRST CORE« 128 WORD 
BATCHES ARE MOVED IN 
THE SWAP THROUGH A 
BUFFER TO CORE OR DRUM 
FOR A SECOND CORE SWAP♦ 
CELLS 10001 THRU 15777 
ARE SWAPPED BETWEEN 
CORES AND 16000 THRU 
17777 ARE SWAPPED FROM 
THE DRUM CORE IMAGE 
127 WORD SWAP 1ST BATCH 
IS TO PRESERVE FI 
THE SAME ROUTINE 
IS USED TO RESWAP 
2ND CORE OR A DRUM 
AFTER DUMPING 
SWAP THIRTY-TWO 
ONE HUNDRED AND 
TWENTY-EIGHT 
WORD BATCHES 
REQUIRED TO 
COMPLETELY SWAP 
ONE DRUM 

SWITCH TO RESET TO 128 
32 BATCHES EQUAL ONE BND 
EXIT 

RESET BUMPS 
TO 128 BUMPS 
AFTER FIRST BATCH 
FORM 

128 BUMPS 
RESET CONSTANT 
EXIT FLOW RESETTER 
RESWAP» THEN GO EXIT 
RESWAP SWITCH 
RESTORE 
THE 

MACHINE 

ACCUMULATOR 


OF 12 


41123 

17527 

11 

17577 

17550 

41124 

17530 

16 

17617 

17550 

41125 

17531 

15 

17617 

17546 

41126 

17532 

11 

17662 

31000 

41127 

17533 

51 

17623 

32000 

41130 

17534 

32 

17617 

00000 

41131 

17535 

15 

32000 

17550 

41132 

17536 

16 

32000 

17552 

41133 

17537 

15 

17266 

17552 

41134 

17540 

75 

30003 

17542 

41135 

17541 

23 

17624 

17616 

41136 

17542 

23 

17545 

17616 

41137 

17543 

23 

17547 

17616 

41140 

17544 

23 

17551 

17616 

41141 

17545 

75 

30200 

17547 

41142 

17546 

11 

00000 

16600 

41143 

17547 

75 

30200 

17551 

41144 

17550 

11 

30000 

00000 

41145 

17551 

75 

30200 

17553 

41146 

17552 

11 

16600 

30000 

41147 

17553 

21 

17546 

17624 

41150 

17554 

21 

17550 

17625 

41151 

17555 

21 

17552 

17626 

41152 

17556 

37 

17556 

17561 

41153 

17557 

41 

17000 

17545 

41154 

17560 

45 

00000 

30000 

41155 

17561 

21 

17545 

17616 

41156 

17562 

21 

17547 

17616 

41157 

17563 

21 

17551 

17616 

41160 

17564 

75 

30003 

17557 

41161 

17565 

21 

17624 

17616 

41162 

17566 

00 

00000 

17561 

41163 

17567 

00 

00000 

17570 

41164 

17570 

37 

17560 

17525 

41165 

17571 

37 

17571 

17572 

41166 

17572 

75 

31200 

41170 

41167 

17573 

11 

42020 

16600 

41170 

17574 

31 

41770 

00044 

41171 

17575 

32 

41771 

00000 
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TP 

DCI+2 Q 

Q-REGISTER 

41172 

17576 

11 

41772 

31000 


TP 

DC 1 + 3 FI 

AND FI 

41173 

17577 

11 

41773 

00000 


MJ 

40034B) 

GO TO EXIT ON DRUM 

41174 

17600 

45 

00000 

40034 

EF 

B 

020004600000 

EF WRITE FREE RUN 

41175 

17601 

02 

00046 

00000 

7MASKS 

B33 

7 

CONVERSION MASKS 

41176 

17602 

70 

00000 

00000 


B30 

7 


41177 

17603 

07 

00000 

00000 


B27 

7 


41200 

17604 

00 

70000 

00000 


B24 

7 


41201 

17605 

00 

07000 

00000 


B21 

7 


41202 

17606 

00 

00700 

00000 


B18 

7 


41203 

17607 

00 

00070 

00000 


B15 

7 


41204 

17610 

00 

00007 

00000 


B12 

7 


41205 

17611 

00 

00000 

70000 


B9 

7 


41206 

17612 

00 

00000 

07000 


B6 

7 


41207 

17613 

00 

00000 

00700 


B3 

7 


41210 

17614 

00 

00000 

00070 


R 

7 


41211 

17615 

00 

00000 

00007 

ONEU 

B15 

1 

U ADVANCER 

41212 

17616 

00 

00001 

00000 

ONEB 

B 

000000100001 

U AND V ADVANCER 

41213 

17617 

00 

00001 

00001 

ONEV 

B 

1 

V ADVANCE 

41214 

17620 

00 

00000 

00001 

UVM 

B 

000777707777 

LOW 4 U AND V MASK 

41215 

17621 

00 

07777 

07777 

SWPXS3 

B 

035703030303 

PRLOC XS3 FOR SWAPS 

41216 

17622 

03 

57030 

30303 

HITS 

B 

007000070000 

HIGH U-V SEVENS 

41217 

17623 

00 

70000 

70000 

128S 

B15 

200 

U ADVANCE 128 

41220 

17624 

00 

00200 

00000 


B 

000020000200 

U-V ADVANCE 128 

41221 

17625 

00 

00200 

00200 


B 

200 

V ADVANCE 128 

41222 

17626 

00 

00000 

00200 

CORE2 

B 

001000000000 

2ND CORE TESTER 

41223 

17627 

00 

10000 

00000 


B 

002000000000 

MAX CORE LIM TESTER 

41224 

17630 

00 

20000 

00000 

XS31 

B 

303030303030 

XS3 FOR XS3 

41225 

17631 

30 

30303 

03030 

XS32 

B 

030303030303 

TRANSLATION 

41226 

17632 

03 

03030 

30303 

INHED 

B 

3 

INDEX TO CONVERT HEADER 

41227 

17633 

00 

00000 

Q0003 

MA5K1 

B 

000740000000 

PICKUP 

41230 

17634 

00 

07400 

00000 

MASK2 

B 

000777000000 

MASKS 

41231 

17635 

00 

07770 

00000 

ALL 

B 

012446460101 

XS3 FOR -ALL-ZERO- 

41232 

17636 

01 

2 446 4 

60101 

ZERO 

B 

017430544501 

DUMP OF MEMORY 

41233 

17637 

01 

74305 

44501 

LOCUP 

B30 

4 

ADDRESS IDENT ADVANCER 

41234 

17640 

04 

00000 

00000 

8U 

B15 

10 

U ADVANCE 8 

41235 

17641 

00 

00010 

00000 

FIRST 

B 

313454656602 

FIRST 

41236 

17642 

31 

34546 

56602 


B 

715154270251 

WORD 

41237 

17643 

71 

51542 

70251 
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310225245027 
020060000000 
XS32 IB) 

XS32 BUF+16 

000077777777 
777777770000 
777700000000 
7777 

037777777777 

177777777777 

740 

24 

5 


B 


STOPTP 

B 

DUMMY 

TN 

DUMTST 

AT 

MA 

B 

MB 

B 

MC 

B 

MD 

B 

ME 

B 

MF 

B 

MG 

B 

20U 

B15 

LIM 

B 

LINECT 

B 

SWAPLM 

B 

CNT 

1STW0R 

B 

PRLOCX 

B 

LOC 

B 

PRLOC 

B 

11 

B 

FLAG 

EQLS 

CHAR 

EQLS 

FI 

EQLS 

BUF 

EQLS 

DC I 

EQLS 

LCT 

EQLS 

PARAM 

EQLS 

MFF 

EQLS 


035701030303 


CORE-1 
CORE-13 
00000B ) 
1660OB) 
4177OB) 
II 

40226B) 
40036B) 


CONSTANT P 


END 
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OF BAND IN XS3 
STOP TAPE EF 
DUMMY MODIFIER 
DUMMY TESTER 
MASKA 
3 
C 
D 
E 
F 
G 

U ADVANCE 20 

DUMP LIMITS 

LINE CT PRESET TO 5 

SWAP LIMIT STORE 

SCALE FACTOR COUNT 

STORE FOR 1ST BAND WORD 

XS3 FOR LOCATION 

LOCATION BITS 

XS3 OF LOCATION 

INDEX 

FLAG CELLS FOR DUMP 
CHARACTERS FOR XS3 CONV 
FIRST CELL OF CORE 
SWAP BUFFER DEFINED 
DRUM CORE IMAGE 
LCT IS A TEMP 
PARAMETER LOCATIONS 
PROGRAM CONTROLLED INDIC 
OOL L(5 5 

LCO) 

LI 77778) 

L {26) 

L {4) 

L € 31 > 

LC2 I 
L (3 ) 

L172) 


41240 17644 31 02252 45027 

41241 17645 02 00600 00000 

41242 17646 13 17632 00001 

41243 17647 35 17632 16620 

41244 17650 00 00777 77777 

41245 17651 77 77777 70000 

41246 17652 77 77000 00000 

41247 17653 00 00000 07777 

41250 17654 03 77777 77777 

41251 17655 17 77777 77777 

41252 17656 00 00000 00740 

41253 17657 00 00024 00000 

41254 17660 00 00000 00000 

41255 17661 00 00000 00005 

41256 17662 00 00000 00000 

41257 17663 00 00000 00000 

41260 17664 00 00000 00000 

41261 17665 03 57010 30303 

41262 17666 00 00000 00000 

41263 17667 00 00000 00000 

41264 17670 00 00000 00000 


41265 17671 00 00000 00005 

41266 17672 00 00000 00000 

41267 17673 00 00000 07777 

41270 17674 00 00000 00032 

41271 17675 00 00000 00C04 

41272 17676 00 00000 00037 

41273 17677 00 00000 C0002 

41274 17700 00 00000 00003 

41275 17701 00 00000 00110 



1103AF-0 PS-QOQOXS 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 

CODE: 

STOPS: 

COMMENTS: 


READ SLAP SYMBOLIC TAPE. 

Loads a program into memory from a SLAP symbolic tape. 

1. Clear console. 

2. Set PAK - iiOOll. 

3. Set Q 3 -Q 0 Qqual to uniservo number of input tape. 

U. Depress start button. 

11 . 

PAK • u address of END instruction. Success stop. 

In case of a parity error, the tape will rock on all biases 
without stopping. 

This routine will not give the proper loading if any of the 
program being loaded is to be stored in DCI. 

There are no checks made for assembly errors on the symbolic 
tape. The storage address is loaded with the octal trans¬ 
lation of the instruction as it appears on the listing. All 
illegal storage addresses are ignored and nothing from that 


line is loaded. 




READ 

SLAP SYMR 

OLIC TAPE 

PAGE 1 OF 

5 






SETL 

1 

1 

THIS ROUTINE LOADS A 






T 

RSRV 

5 

5 

PROGRAM INTO MEMORY 


00001 




TT 

RSRV 

6 

6 

FROM A SLAP SYMBOLIC 


00006 




B 

RSRV 

20 

20 

OUTPUT TAPE. SINCE SLAP 


00014 




BB 

RSRV 

470 

470 

WRITES THE SYMBOLIC 


00040 





SETL 

43220B ) 

43220B) 

TAPE IN THE FIXED BLOCK 






RDSYMB 

RJ 

SAVE+5 

SAVE 

MODE* THIS ROUTINE 


43220 

37 

40044 

40037 


RPR 

159 

CORE 

READS IT IN THE FIXED 


43221 

75 

30237 

00766 


TP 

L +1 

CORE 

BLOCK MODE BECAUSE OF 


43222 

11 

43223 

0076 6 


SETL 


766B ) 

THE BAD SPOT DETECTION 






CORE 

SP 

0 

12 

INCOMPATIBILITIES BE- 

43223 

00766 

31 

31000 

00014 


RPR 

3 

L+2 

TWEEN FIXED BLOCK AND 

43224 

00767 

75 

30003 

00771 


AT 

E 

E 

VARIABLE BLOCK MODES. 

43225 

00770 

35 

01173 

01173 

JMPSET 

TP 

DRUMST+l 

BACKEN+2 


43226 

00771 

11 

40001 

007 6 5 


EF 


NORMAL 

THE CONSOLE REGISTERS 

43227 

00772 

17 

00000 

01177 

SETUPS 

TP 

L ( 2 ) 

IB 

AND CORE ARE PRESERVED 

43230 

00773 

11 

01213 

00770 


TV 

CONVRT 

LAST 

BY USING THE SAVE ROU- 

43231 

00774 

16 

01016 

01205 


TV 

SEO 

BREAKS 

TINE AND DRUM-CORE 

43232 

00775 

16 

01212 

01071 


EF 


E 

IMAGE. WHILE OPERATING 

43233 

00776 

17 

00000 

01173 


TV 

JMPSET 

STORE 

FROM CORE* THE ROUTINE 

43234 

00777 

16 

00771 

01075 


TP 

J 3 N 0 

TR1 

AND ITS BUFFER OCCUPY 

43235 

01000 

11 

01201 

01066 


TP 

L(45 5) 

SIZE 

CELLS 0 TO 1224. ANY 

43236 

01001 

11 

01214 

00767 


TV 

BRV 

TP 

DRUM ADDRESS TO BE 

43237 

01002 

16 

01210 

01031 

TRASH 

TP 

LAST 

TT 

LOADED IS STORED IN THE 

43240 

01003 

11 

01205 

00006 


TP 

TP 

TT + 1 

CORE BUFFER UNTIL THAT 

43241 

01004 

11 

01031 

00007 


TP 

SIZE 

TT+2 

BUFFER IS FILLED. WHEN 

43242 

01005 

11 

00767 

00010 


TP 

STORE 

TT+3 

THE BUFFER IS FULL* THE 

43243 

01006 

11 

01075 

00011 


TP 

TR1 

TT+4 

INPUT TAPE IS STOPPED 

43244 

01007 

11 

01066 

00012 


TP 

TR1 + 1 

TT+5 

AND THE CORE BUFFER IS 

43245 

01010 

11 

01067 

00013 

SET 4 

TP 

L {4 } 

FOUR 

UNLOADED. ALL CORE 

43246 

01011 

11 

01215 

00766 

READ 

RPV 

20 

L+2 

ADDRESSES ARE LOADED 

43247 

01012 

75 

10024 

01014 


ER.l 


R 

DIRECTLY UNLESS THEY 

43250 

01013 

76 

10000 

00014 


SP 

B+2 


ARE BETWEEN 0 AND 1224. 

43251 

01014 

31 

00016 

00000 


EJ 

ENDOP 

END 

IN THAT CASE* THEY ARE 

43252 

01015 

43 

01202 

01104 

CONVRT 

TP 

B+l 2 

A 

TREATED AS DRUM ADD¬ 

43253 

01016 

11 

00030 

32000 


EJ 

C01 

EXEC 

RESSES AND STORED IN 

43254 

01017 

43 

01203 

01063 

BOX 

RJ 

X+9 

X 

THE CORE BUFFER. WHEN 

43255 

01020 

37 

01152 

01141 


TJ 

L(20000B) 

CORADD 

THE CORE BUFFER Is UN- 

43256 

01021 

42 

01216 

01054 
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TJ 

L{40000B} 

TEST 

LOADED» THE CONTENTS OF 

43257 

01022 

42 

01217 

01035 

INSERT 

TP 

A 

LAST+1 

THE ADDRESSES 0 TO 1224 

43260 

01023 

11 

32000 

01206 


SS 

L (1 ) 


ARE STORED IN DC I. 

43261 

01024 

34 

01220 

00000 


EJ 

LAST 

L+2 

WHEN DCI GOES TO CORE 

43262 

01025 

43 

01205 

01027 


MJ 


BREAKS 

AT THE COMPLETION OF 

43263 

01026 

45 

00000 

01071 


TP 

LAST+1 

LAST 

THE LOADING, THE CONT¬ 

43264 

01027 

11 

01206 

01205 


RJ 

X+2 5 

X + 10 

ENTS OF CELLS 0-1224 

43265 

01030 

37 

01172 

01153 

TP 

TP 

A 

BB 

ARE THEN IN PLACE. 

43266 

01031 

11 

32000 

00040 


RA 

TP 

L (1 } 


43267 

01032 

21 

01031 

01220 


RA 

TR1 

L(100000R) 

LOADING OF THE TAPE IS 

43270 

01033 

21 

01066 

01221 


RS 

SIZE 

L(l) 

TERMINATED BY THE END 

43271 

01034 

23 

00767 

01220 

TEST 

RJ 

L 

L + l 

INSTRUCTION ON TAPE. 

43272 

01035 

37 

01035 

01036 


IJ 

FOUR 

READ 

THE IS KEPT MOVING AS 

43273 

01036 

41 

00766 

01012 


RPV 

20 

L+2 

LONG AS THE BUFFER IS 

43274 

01037 

75 

10024 

01041 


ER1 


B 

NOT FULL OR END NOT ' 

43275 

01040 

76 

10000 

00014 


ER 


A. 

FOUND. HENCE, PROGRAMS 

43276 

01041 

76 

00000 

32000 


2 J 

PARITY 

L+l 

WITH CORE STORAGE ADD¬ 

43277 

01042 

47 

01120 

01043 


SP 

R+2 


RESSES WILL LOAD FREE 

43300 

01043 

31 

00016 

00000 


EJ 

ENDOP 

END+5 

RUN® THE PROGRAM LOADED 

43301 

01044 

43 

01202 

01111 


TP 

SIZE 

A 

IS A TRANSLATION TO 

43 302 

01045 

11 

00767 

32000 


SJ 

L+l 

LLINE 

BINARY OF THE OCTAL 

43303 

01046 

46 

01047 

01052 


EF 


STOPTP 

TRANSLATION ON THE SLAP 

4330^ 

0.1047 

17 

00000 

01176 


RJ 

TEST 

CONVRT 

TAPE. THE STORAGE ADD¬ 

43305 

01050 

37 

01035 

01016 


MJ 


DUMP 

RESS IS USED UNLESS THE 

43306 

01051 

45 

00000 

01136 

LLINE 

RJ 

TEST 

CONVRT 

STORAGE AND EXECUTION 

43307 

01052 

37 

01035 

01016 


MJ 


TRASH 

ARE THE SAME. BLANK 

43310 

01053 

45 

00000 

01003 

CORADD 

TJ 

LAP 

ADJUST 

LINES AND ILLEGAL STOR¬ 

43311 

01054 

42 

01204 

01061 


TV 

A 

CORADD+3 

AGE ADDRESSES ARE SKIP¬ 

43312 

01055 

16 

32000 

01057 


RJ 

X+2 5 

X + 10 

PED. THE U-ADDRESS OF 

43313 

01056 

37 

01172 

01153 


TP 

A 

FILL 

THE END INSTRUCTION IS 

43314 

01057 

11 

32000 

30000 


MJ 


TEST 

ASSUMED TO BE THE START 

43315 

01060 

45 

00000 

01035 

ADJUST 

SA 

LAPCON 


ADDRESS OF THE PROGRAM 

43316 

01061 

32 

01207 

00000 


MJ 


INSERT 

BEING LOADED AND WILL 

43317 

01062 

45 

00000 

01023 

EXEC 

TP 

B+13 

A 

APPEAR IN PAK UPON 

43320 

01063 

11 

00031 

32000 


E J 

C01 

TEST 

COMPLETION OF LOADING. 

43321 

01064 

43 

01203 

01035 


MJ 


BOX 

THE TAPE REWINDS AT 

43322 

01065 

45 

00000 

01020 

TR1 

RPR 


L + 2 

THIS TIME. 

43323 

01066 

75 

30000 

01070 


TP 

FILL 

FILL 


43324 

01067 

11 

30000 

30000 



READ SLAP SYMBOLIC TAPE 
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MJ 


FILL 

EACH LINE (BLOCKETTE) OF 

43325 

01070 

45 

00000 

30000 

BREAKS 

RJ 

L 

SEQUIN 

SYMBOLIC TAPE IS PROC¬ 

43326 

01071 

37 

01071 

01077 


TV 

STORE 

TR1 

ESSED AND STORED AS IT 

43327 

01072 

16 

01075 

01066 


RS 

STORE 

L ( 2 } 

IS READ. HENCE* SINCE 

43330 

01073 

23 

01075 

01213 


RPB 

2 

L+2 

A PARITY ERROR IS NOT 

43331 

01074 

75 

30002 

01076 

STORE 

TP 

TR1 

BACKEN+2 

DETECTED UNTIL THE END 

43 332 

01075 

11 

01066 

00765 


RS 

SIZE 

L ( 2 5 

OF A BLOCK* ENOUGH 

43333 

01076 

23 

00767 

01213 

SEQUIN 

TV 

LAST+1 

TR1 + 1 

INFORMATION MUST BE 

43334 

01077 

16 

01206 

01067 


LQ 

TP 

A+l 5 

SAVED SO THAT A RECOV¬ 

43335 

01100 

55 

01031 

32017 


TU 

Q 

TR1 + 1 

ERY MAY BE MADE IF A 

43336 

01101 

15 

31000 

01067 


TP 

J3N0 

TR1 

PARITY ERROR OCCURS. 

43337 

01102 

11 

01201 

01066 


MJ 


INSERT+4 

THIS INFORMATION IS 

43340 

01103 

45 

00000 

01027 

END 

RPO 

20 

L+2 

SAVED IN THE TT BUFFER 

43341 

01104 

75 

00024 

01106 


ER1 


A 

AT THE BEGINNING OF 

43342 

01105 

76 

10000 

32000 


IJ 

FOUR 

L-2 

EVERY BLOCK. A PARITY 

43343 

01106 

41 

00766 

01104 


ER 


A 

ERROR WILL CAUSE THE 

43344 

01107 

76 

00000 

32000 


ZJ 

PARITY 

L + l 

TAPE TO ROCK ON ALL 

43345 

OHIO 

47 

01120 

01111 


EF 


STOPTP 

BIASES INDEFINITELY. 

43346 

01111 

17 

00000 

01176 


EF 


E+2 


43347 

01112 

17 

00000 

01175 


$P 

8+15 


IN ORDER TO SPEED UP THE 

43350 

01113 

31 

00033 

00000 


RJ 

X+9 

X 

UNLOADING OF THE CORE 

43351 

01114 

37 

01152 

01141 


TV 

A 

EXIT+1 

BUFFER TO DRUM* THE 

43352 

01115 

16 

32000 

40035 


RJ 

DUMP+2 

DUMP 

BUFFER IS SET UP IN THE 

43353 

01116 

37 

01140 

01136 


MJ 


RESTOR 

FOLLOWING MANNER= 

43354 

01117 

45 

00000 

40046 

PARITY 

I J 

IB 

L + 2 

AS LONG AS THE CELLS 

43355 

01120 

41 

00770 

01122 


TP 

L! 2 ) 

IB 

TO BE LOADED ARE IN 

43356 

01121 

11 

01213 

00770 


LA 

A 

12 

SEQUENCE* THEY ARE 

43357 

01122 

54 

32000 

00014 


AT 

LOWBIS 

T 

STORED SEQUENTIALLY 

43360 

01123 

35 

01200 

00001 


EF 


T 

FROM THE BEGINNING OF 

43361 

01124 

17 

00000 

00001 


EF 


E + l 

THE BUFFER. ONE SET OF 

43362 

01125 

17 

00000 

01174 


TP 

TT 

LAST 

TRANSFER COMMANDS IS 

43363 

01126 

11 

00006 

01205 


TP 

TT + 1 

TP 

GENERATED FOR EACH 

43364 

01127 

11 

00007 

01031 


TP 

TT+2 

SIZE 

SEQUENCE. THE 2 TRANS¬ 

43365 

01130 

11 

00010 

00767 


TP 

TT+3 

STORE 

FER COMMANDS ARE STOR¬ 

43366 

01131 

11 

00011 

01075 


TP 

TT+4 

TR1 

ED AT THE BACKEND OF 

43367 

01132 

11 

00012 

01066 


TP 

TT+5 

TR1 + 1 

THE BUFFER. EACH BREAK 

43370 

01133 

11 

00013 

01067 


EF 


E 

IN SEQUENCE CREATES A 

43371 

0113“4 

17 

00000 

01173 


MJ 


SET4 

NEW PAIR OF TRANSFER 

43372 

01135 

45 

00000 

01011 




READ SLAP SYMBOLI 

C TAPE 

DUMP 

TV 

STORE 



TR1 + 2 


RJ 

BACKEN+2 



TR1 


MJ 




SETUPS 

X 

TP 

L (4) 



T + l 


ST 

C03 



0 


RS 

T 



T 


LQ 

Q 



6 


LQ 

Q 



6 


SP 

T 



3 


QA 

L!7 ) 



T 


I J 

T+l 



X+4 


SP 

T 





nj 

TP 

B+14 



A 


ST 

LI303B) 



Q 


LO 

Q 



18 


TP 

Ltl) 



T + l 


RJ 

X+9 



X+2 


TP 

A 



T+2 


TP 

B+l 5 



A 


RJ 

X+9 



X 


TP 

A 



T + 3 


TP 

B+l 6 



A 


RJ 

X+9 



X 


TP 

A 



T+4 


SP 

T+2 



15 


SA 

T+3 



15 


SA 

T+4 





MJ 





E 

B 

020000200 

0 

00 



B 

0000012000 

01 



B 

000016377 

7 

77 


STOPTP 

B 

0200600000 

00 


NORMAL 

B 

020000150 

0 

00 


LOWBIS 

R 

020000160 

0 

00 


J3N0 

RPR 




TR1 + 2 

ENDOP 

B18 

305027 




C01 

B 

010101010 

1 

01 
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COMMANDS* WHEN THE 
INFORMATION TO BE 
LOADED AND THE TRANS¬ 
FER COMMANDS MEET * THE 
TAPE IS STOPPED AND 
CONTROL IS TRANSFERRED 
TO THE STRING OF TRAN¬ 
SFER COMMANDS. THIS 
EMPTIES THE BUFFER AND 
LOADING IS RESUMED. 
TREATING THE BUFFER IN 
THIS WAY MAKES IT 
POSSIBLE TO TAKE MAX¬ 
IMUM ADVANTAGE OF THE 
SIZE OF THE BUFFER AND 
ALSO UNLOAD IT WITH 
THE FEWEST NUMBER OF 
DRUM REFERENCES. 

THE CONVERSION ROUTINE 
USED TO CONVERT FROM 
XS3 OCTAL TO BINARY 
STARTS AT TAG X. THE 
ROUTINE FROM X TO X+9 
CONVERTS THE XS3 OCTAL 
NUMBER IN A-RIGHT TO 
BINARY AND LEAVES IT IN 
A-RIGHT. IF THE ROUT¬ 
INE IS USED FROM X + 10 
TO X+25 THE OP-U-V OF 
THE WORD TO BE LOADED 
IS TRANSLATED FROM 
OCTAL XS3 TO BINARY AND 
PACKED INTO ONE WORD. 
THE ASSEMBLED BINARY 
WORD IS LEFT IN A-RT. 

THE SLAP SYMBOLIC TAPE 


43373 01136 16 01075 01070 

43374 01137 37 00765 01066 

43375 01140 45 00000 00773 

43376 01141 11 01215 00002 

43377 01142 36 01211 31000 

43400 01143 23 00001 00001 

43401 01144 55 31000 00006 

43402 01145 55 31000 00006 

43403 01146 31 00001 00003 

43404 01147 52 01222 00001 

43405 01150 41 00002 01145 

43406 01151 31 00001 00000 

43407 01152 45 00000 00000 

43410 01153 11 00032 32000 

43411 01154 36 01223 31000 

43412 01155 55 31000 00022 

43413 01156 11 01220 00002 

43414 01157 37 01152 01143 

43415 01160 11 32000 00003 

43416 01161 11 00033 32000 

43417 01162 37 01152 01141 

43420 01163 11 32000 00004 

43421 01164 11 00034 32000 

43422 01165 37 01152 01141 

43423 01166 11 32000 00005 

43424 01167 31 00003 00017 

43425 01170 32 00004 00017 

43426 01171 32 00005 00000 

43427 01172 45 00000 00000 

43430 01173 02 00002 00000 

43431 01174 00 00012 00001 

43432 01175 00 00163 77777 

43433 01176 02 00600 00000 

43434 01177 02 00001 50000 

43435 01200 02 00001 60000 

43436 01201 75 30000 01070 

43437 01202 30 50270 00000 

43440 01203 01 01010 10101 



READ SLAP SYMBOLIC TAPE 


LAP 



1225B J 

LAST 



FILL 

FILL 

LAPCON 



DC 1 + 3 

BBV 



BB 

C03 

B 

0303030303 


SEQ 

SIZE 

EQLS 

CORE+1 

SEQUIN 

FOUR 

EQLS 

CORE 


DRUMST 

EQLS 

40000BI 


DC I 

EQLS 

41770B } 


BACKEN 

EQLS 

CORE-3 


SAVE 

EQLS 

40037B) 


RESTOR 

EQLS 

40046B 5 


EX IT 

EQLS 

40034B) 


IB 

EQLS 

CORE+2 



CONSTANT P 


END 
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MAY BE READ FROM ANY 
UNISERVO BY SETTING THE 
DESIRED NUMBER IN THE 
LOW-ORDER OF THE Q 
REGISTER. A LEGAL 
UNISERVO NUMBER MUST 
BE SPECIFIED. 

WHEN REUSING OR RESTART¬ 
ING THIS ROUTINE* THE 
DRUMSTART SHOULD BE 
USED SO THAT THE ROUT¬ 
INE WILL BE BROUGHT 
FROM DRUM TO CORE BE¬ 
FORE EACH USE. THIS IS 
NECESSARY BECAUSE PARTS 
OOL L(2 ) 

L{455) 

L (4 ) 

L(20000B) 

L(40000B) 

L (1 ) 

L{100000B) 
L(7) 

LI303S) 

OF THE PROGRAM ARE USED 


43441 01204 00 00000 01225 

43442 01205 00 00000 30000 

43443 01206 00 00000 30000 

43444 01207 00 00000 41773 

43445 01210 00 00000 00040 

43446 01211 00 03030 30303 

43447 01212 00 00000 01077 


43450 01213 00 00000 00002 

43451 01214 00 00000 00707 

43452 01215 00 00000 00004 

43453 01216 00 00000 20000 

43454 01217 00 00000 40000 

43455 01220 00 00000 00001 

43456 01221 00 00001 00000 

43457 01222 00 00000 00007 

43460 01223 00 00000 00303 



1X03AF-OPS-00001S 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 


CODE: 

STOPS: 

COMMENTS: 


BINARY DUMP (2-Core). 


Prepares a self-loading binary tape of the entire memory on 
a designated uniservo. 


1. To dump: 

a. Clear console. 

b. Set PAK - 1*0013. 

c. Set Q-j-Q,-, » output uniservo number* 
d* Depress start button* 

2* To reads 

a* Clear console. 

b. Set PAK *> 1*0000. 

c. Set Q 00 DDDDD 000TT, 

where D * dump number desired and 
T * uniservo number. 

d. Depress start button. 


13 . 


PAK - 1*0000, Success stop for read or write, 
PAK « 00002, Checksum failure on read. 


The Cold Start procedure may be used to read a binary dump 
if desired. In case of parity errors, the tape will rock 
on all biases. A dump number of 0 indicates the first dump. 
The binary dump may be used under program control as follows: 

1. With BOSS: 

TP Tare Unit 1*0226 
RJ 1*0031* 1*0013. 

2. Without BOSS: 


TP Tape Unit Q 
RJ 1*003)* 140013 
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SETL 

41276B) 

41276B) 

2 CORE._BINARY DUMP 






MFF 

EQLS 

40036B) 








DC I 

EQLS 

41770B) 








BINDMP 

TP 

MFF 

A 

TEST BOSS MASTER FLIP- 


41276 

11 

40036 

32000 


ZJ 

L+2 

L+l 

FLOP. IF MFF IS 0 THE 


41277 

47 

41301 

41300 


TP 

Q 

PARA 

PARAMETER IS IN Q» IF 


41300 

11 

31000 

40226 


MJ 


SETUP 

MFF NOT 0 IT IS IN PARA. 


41301 

45 

00000 

41302 

SI; TUP 

TP 

FI 

DC I 

SAVE CONTENTS OF CELLS 


41302 

11 

00000 

41770 


RPB 

660 

L+2 

0 THRU 1224B IN DCI (THE 


41303 

75 

31224 

41305 


TP 

1 

DCI+4 

DRUM IMAGE OF CORE). 


41304 

11 

00001 

41774 


RPB 

145 

CORBIN 

TRANSFER BINARY DUMP 


41305 

75 

30221 

00003 


TP 

L+l 

CORBIN 

ROUTINE TO CORE. 


41306 

11 

41307 

00003 


SETL 


3 







CORBIN 

LTL 


DCI+1 

SAVE AL» AR AND Q IN 

41307 

00003 

22 

00000 

41771 


LTR 


DC I+2 

DCI. 

41310 

00004 

22 

10000 

41772 


TP 

Q 

DCI+3 

Q 

41311 

00005 

11 

31000 

41773 


TV 

GULP 

GULP 

SET INDEX FOR 27 GULPS 

41312 

00006 

16 

00063 

00063 


TU 

L+4 

STDUMP+1 

SET TO TRANSFER FR 4000 

41313 

00007 

15 

00013 

00020 


SP 

PARA 

12 

EXTRACT UNISERVO NR FR 

41314 

00010 

31 

40226 

00014 


AT 

EFWRIT 

EFWRIT 

PARAMETER* SET WRITE EF* 

41315 ooeii 

35 

00060 

00060 


ST 

A 

CKSUM 

CLEAR CHECKSUM CELL. 

41316 

00012 

36 

32000 

00064 


EF 

40000B } 

EFWRIT 

WRITE THE BINARY DUMP 

41317 

00013 

17 

40000 

00060 


RPV 

120 

L+2 

DRIVER f1ST BLOCK ON THE 

41320 

00014 

75 

10170 

00016 


EW1 


DRIVER 

DUMP TAPE) AND STOP. 

41321 

00015 

77 

10000 

00066 


RS 

EFWRIT 

STOPCD 

REMOVE STOP CODE FR EF. 

41322 

00016 

23 

00060 

00062 

STDUMP 

RPB 

600 

L+2 

TRANSFER 5 BLOCKS OF 

41323 

00017 

75 

31130 

00021 


TP 


DRIVER 

INFORMATION TO CORE. 

41324 

00020 

11 

00000 

00066 


EF 


EFWRIT 

START FREE RUN WRITE. 

41325 

00021 

17 

00000 

00060 


RA 

STDUMP+1 

UBUMP 

BUMP TRANSFER ADDRESS. 

41326 

00022 

21 

00020 

00065 


RPV 

600 

L+2 

WRITE 5 BLOCKS OF IN¬ 

41327 

00023 

75 

11130 

00025 


EW1 


DRIVER 

FORMATION ON TAPE. 

41330 

00024 

77 

10000 

00066 


EF 


EFSTOP 

STOP THE TAPE UNIT* 

41331 

00025 

17 

00000 

00061 


SP 

CKSUM 


LOAD PREVIOUS CHECKSUM 

41332 

00026 

31 

00064 

00000 


RPU 

600 

L+2 

IN A AND ADD CHECKSUM 

41333 

00027 

75 

21130 

00031 


SA 

DRIVER 


FOR BLOCKS JUST WRITTEN. 

41334 

00030 

32 

00066 

00000 


LTR 


CKSUM 

STORE PARTIAL CHECKSUM. 

41335 

00031 

22 

10000 

00064 


IJ 

GULP 

STDUMP 

TEST-27 GULPS DUMPED. 

41336 

00032 

41 

00063 

00017 


RPB 

270BJ 

L+2 

TRAN5FER LAST 270B WDS 

41337 

00033 

75 

30270 

00035 



BINARY DUMP (2-CORE) 
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TP 

77510B ) 

735B) 

OF DRUM TO CORE* 

41340 

00034 

11 

77510 

00735 


SP 

CKSUM 


LOAD PREVIOUS CHECKSUM 

41341 

00035 

31 

00064 

00000 


RPU 

70448) 

L + 2 

AND ADD THE CHECKSUM OF 

41342 

00036 

75 

27044 

00040 


SA 

735B) 


CELLS 735B THRU 100003* 

41343 

00037 

32 

00735 

00000 


RPU 

7777B) 

t+2 

CHECKSUM REMAINDER OF 

41344 

00040 

75 

27777 

00042 


SA 

100018) 


CORE»100018 THRU 17777B. 

413 45 

00041 

32 

10001 

00000 


EF 


EFWRIT 

START FREE RUN WRITE 

41346 

OC042 

17 

00000 

00060 


RPV 

7400B) 

L+2 

AND WRITE THE CONTENTS 

413 47 

00043 

75 

17400 

00045 


EW1 


61 IB) 

OF CELLS 6113 THRU 1021 

41350 

00044 

77 

10000 

00611 


RPV 

7567B) 

L+2 

WRITE THE CONTENTS OF 

41351 

00045 

75 

17567 

00047 


EW1 


10211B) 

CELLS 1021 IB THRU 17777. 

41352 

00046 

77 

10000 

10211 


EW1 


A 

WRITE TOTAL CHECKSUM. 

41353 

00047 

77 

1 GOOD 

32000 


EF 


EFSTOP 

STOP THE TAPE UNIT. 

41354 

00050 

17 

00000 

00061 


SP 

DCI + 1 

36 

RESTORE AL» AR» 0 AND 

413 55 

00051 

31 

41771 

00044 


SA 

DCI+2 


CELLS IB THRU 12243 FROM 

41356 

00052 

32 

41772 

00000 


TP 

DC I+3 

Q 

THE DCI* THEN TRANSFER 

41357 

00053 

ii 

41773 

31000 


RPB 

660 

BINDMP+52 

TO DRUM AND RESTORE FI 

41 360 

00054 

75 

31224 

41362 


TP 

DC I+4 

1 

(CELL 0) FROM THE DCI. 

41361 

00055 

11 

41774 

00001 


TP 

DC I 


JUMP TO THE- COMMON 

41362 

00056 

7 7 

41770 

00000 


MJ 


40034B) 

SERVICE ROUTINE EXIT. 

41363 

00057 

45 

00000 

40034 

EFWRIT 

B 

020060600000 


EF CODE FOR TAPE WRITE. 

41364 

00060 

02 

00606 

00000 

EFSTOP 

B 

020060000000 


EF CODE FOR STOP TAPE. 

41365 

00061 

02 

00600 

00000 

STOPCD 

B 

000060000000 


EF STOP CODE MASK* 

41366 

00062 

00 

00600 

00000 

GULP 

B 

32 


NR OF 5 BLOCK GULPS -1 * 

41367 

00053 

00 

00000 

00032 

CKSUM 




CHECKSUM CELL 

41370 

00064 

00 

000 00 

00000 

UBUMP 


1130B) 


113QB EQUALS 600(DEC) 

41371 

00C65 

■ r. f* 

SJ -J 

01130 

00000 

DRIVER 

MJ 


READ 

BINARY DUMP DRIVER RTN 

41372 

00066 

4 5 

00000 

00001 


SETL 


1 







READ 

TU 

Q 

BNEW 

SAVE DUMP NUMBER 

41373 

000 01 

1 s 
?. —* 

31000 

00120 


IJ 

Q 

L+2 

TEST PARAMETER FOR NON 

41374 

00002 

41 

31000 

00004 


MS 


READ 

ENTRY OF UNISERVO NR. 

41375 

00003 

56 

00000 

00C01 


TV 

A 

NBLKS 

SAVE SERVO NR LESS 1* 

41376 

00004 

16 

3 2 000 

00117 


SP 

N8LKS 

12 

AND ADD THIS NR TO EF 

41377 

00005 

31 

00117 

00014 


RPB 

3 

L+2 

CODES WHICH WERE PRESET 

41400 

00006 

75 

30003 

00010 


AT 

EFREAD 

EFREAD 

TO INDICATE UNISERVO 1. 

41401 

00007 

35 

00125 

00125 


LQ 

BNEW 

A+21 

TEST DUMP NUMBER {DN)» 

41402 

0C010 

55 

00120 

32025 


SS 

TWO 


IF DN EQ 0 OR 1 .SET TO 

41403 

00011 

34 

00121 

00000 


SJ 

SETIND 

L+l 

READ 1ST DUMP ON TAPE* 

414Q4 

00012 

46 

00015 

00013 




BINARY DUMP (2“C0RE) 



EF 


MOVFWD 


IJ 

A 

L-l 

SETIND 

TP 

27IND 

N8LKS 


RJ 

RETURN 

RD27BK 

STORE 

RPS 

3240 

L + 2 


TP 

1458 5 

400008) 


SP 

CKS 



RPU 

3240 

L + 2 


SA 

1458) 



TP 

A 

CKS 


RA 

STORE+1 

3240V 


I J 

PASSES 

SETIND 


TV 

611V 

RD27BK+5 


TP 

63IND 

NBLKS 


RJ 

RETURN 

RD27BK+1 


TP 

119RD 

RD278K+4 


MJ 


RD27BK+1 

LASTBK 

ER1 


0 


ER 


A 


ZJ 

BINDEX 

L + l 


EF 


STOPTP 


SP 

CKS 



RPU 

70448) 

L + 2 


SA 

735B) 



RPU 

77778) 

L + 2 


SA 

100018) 



RS 

A . 

Q 


ZJ 

L+l 

L + 2 


MS 


000028) 


RP8 

2708) 

L + 2 


TP 

7358) 

775108) 


SP 

DC I + 1 

36 


SA 

DC I+2 



TP 

DCI+3 

Q 


RP8 

660 

BINDMP+107 


TP 

DC I+4 

1 


TP 

DCI 



MS 


400008) 
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IF DNGTR IHN 1 SET TO 
READ DN(TH) DUMP ON TAPE 
SET FOR 27 BLOCK. GULPS. 
SUBRTN-READ 27 BLOCKS 
STORE 3240 WORDS (27 
BLOCKS) ON DRUM. 

LOAD PREVIOUS CHECKSUM 
AND ADD TO IT THE CHECK 
SUM OF THE 3240 WORDS 
JUST STORED. 

BUMP STORE ADDRESS. 
TEST-5 GULPS DONE 
RESET READ SUBROUTINE 
AND READ 64 BLOCKS INTO 
CORE» CELLS 611B-17610B. 

RESET READ SUBRTN* READ 
1678 WDS*176118-17777B. 

READ CHKSUM COMPUTED AS 
DUMP WAS MADE* READ IOA. 
TEST PARITY 
STOP TAPE UNIT 
LOAD PREVIOUS CHECKSUM 
AND FINISH CHECKSUM OF 
DRUM AND ADD TO CHECKSUM 
OF CORE* THEN COMPARE 
THIS CHECKSUM WITH THE 
ONE COMPUTED WHEN THE 
DUMP WAS MADE. 

CHECKSUM FAILURE EXIT. 
RESTORE LAST 270 WORDS 
AT END OF DRUM. 

RESTORE AL* AR* G» AMD 
RESTORE CELLS 1 THRU 
12248 FROM THE DCI. 


RESTORE FI FROM DCI. 
SUCCESS EXIT 


41405 00013 17 00000 00126 

41406 00014 41 32000 00013 

41407 00015 11 00130 00117 

41410 00016 37 00105 00061 

41411 00017 75 36250 00021 

41412 00020 11 00145 40000 

41413 00021 31 00135 00000 

41414 00022 75 26250 00024 

41415 00023 32 00145 00000 

41416 00024 11 32000 00135 

41417 00025 21 00020 00134 

41420 00026 41 00132 00015 

41421 00027 16 00124 00066 

41422 00030 11 00131 00117 

41423 00031 37 00105 00062 

41424 00032 11 00133 00065 

41425 00033 45 00000 00062 

41426 00034 76 10000 31000 

41427 00035 76 00000 32000 

41430 00036 47 00071 00037 

41431 00037 17 00000 00113 

41432 00040 31 00135 00000 

41433 00041 75 27044 00043 

41434 00042 32 00735 00000 

41435 00043 75 27777 00045 

41436 00044 32 10001 00000 

41437 00045 23 32000 31000 

41440 00046 47 00047 00050 

41441 00047 56 00000 00002 

41442 00050 75 30270 00052 

41443 00051 11 00735 77510 

41444 00052 31 41771 00044 

41445 00053 32 41772 00000 

41446 00054 11 41773 31000 

41447 00055 75 31224 41451 

41450 00056 11 41774 00001 

41451 00057 11 41770 00000 

41452 00060 56 00000 40000 
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RD27BK 


BINDEX 


BSWITH 


RETURN 


FI 

STOPTP 

BNORM 

BLOW 

BIASIN 

NBLKS 

BNEW 

TWO 

RDADDR 

BLK 

611V 

EFREAD 


TV 

RDADDR 

RD278K+5 

EF 


BNORM 

TP 

TWO 

BIASIN 

EF 


EFREAD 

RPV 

ER1 

120 

L+2 

ER 


A 

ZJ 

BINDEX 

BSWITH 

IJ 

BIASIN 

L + 2 

TP 

TWO 

BIASIN 

LA 

A 

12 

AT 

BLOW 

BNEW 

EF 


MOVBAK 

EF 


BNEW 

TV 

RETURN+1 

BSWITH 

MJ 


RD27BK+3 

RJ 

L 

L + l 

RA 

RD27BK+5 

BLK 

I J 

NBLKS 

RD27BK+4 

EF 


STOPTP 

MJ 


FILL 

L + l 

EF 


STOPTP 

RA 

RD27BK+5 

BLK 

IJ 

NBLKS 

RD27BK+1 

MJ 

EQLS 


RETURN 

B 

020060000000 


B 

020000150000 


B 

020000160000 



B 2 

B 145 

B 170 

B 611 

B 020000210000 


SET READ ADDRESS 
SET NORMAL BIAS 
SET BIAS CHANGE INDEX 
START FREE RUN READ 
READ ONE BLOCK Or IN¬ 
FORMATION INTO CORE* 

READ IOA 
TEST PARITY 
DETECTION OF A PARITY 
ERROR WILL CAUSE THIS 
ROUTINE TO CONTINUE TO 
ATTEMPT TO READ THE BAD 
BLOCK ON ALL 3 BIAS LEV 
ELS UNTIL PARITY TEST IS 
SUCCESSFUL» OR THE COM¬ 
PUTER IS FORCE STOPPED* 
DUMMY BIAS RESET SVHCH 
BUMP READ ADDRESS 
TEST-REQUIRED NUMBER OF 
BLKS READ» SO STOP TAPE. 
READ SUBROUTINE EXIT 

STOP TAPE 
BUMP READ ADDRESS 
TEST REQUIRED NUMBER OF 
BLOCKS SO EXIT. 

EF STOP CODE 
EF NORMAL SI AS CODE 
EF LOW BIAS CODE 


EF READ FWD FREE RUN 


41453 

00061 

16 

00122 

00066 

41454 

00062 

17 

00000 

00114 

41455 

00063 

11 

00121 

00116 

41456 

00064 

17 

00000 

00125 

41457 

00065 

75 

10170 

00067 

41460 

00066 

76 

10000 

00000 

41461 

00067 

76 

00000 

32000 

41462 

00070 

47 

00071 

00101 

41463 

00071 

41 

00116 

00073 

41464 

00072 

11 

00121 

00116 

41465 

00073 

54 

32000 

00014 

41466 

00074 

35 

00115 

00120 

41467 

00075 

17 

00000 

00127 

41470 

00076 

17 

00000 

00120 

41471 

00077 

16 

00106 

00101 

41472 

00100 

45 

00000 

00064 

41473 

00101 

37 

00101 

00102 

41474 

00102 

21 

00066 

00123 

41475 

00103 

41 

00117 

00065 

41476- 

DO 104 

17 

00000 

00113 

41477 

00105 

45 

00000 

30000 

41500 

00106 

00 

00000 

00107 

41501 

00107 

17 

00000 

00113 

41502 

00110 

21 

00066 

00123 

41503 

00111 

41 

00117 

00062 

41504 

00112 

45 

00000 

00105 

41505 

00113 

02 

00600 

00000 

41506 

00114 

02 

00001 

50000 

41507 

00115 

02 

00001 

60000 

41510 

00116 

00 

00000 

00000 

41511 

00117 

00 

00000 

00000 

41512 

00120 

00 

00000 

00000 

41513 

00121 

00 

00000 

00002 

41514 

00122 

00 

OOOQO 

00145 

41515 

00123 

00 

00000 

00170 

41516 

00124 

00 

00000 

00611 

41517 

00125 

02 

00002 

10000 



BINARY DUMP (2-CORE) 


MOVFWD 

B 

000000200311 

EF MOVE 

MOV3AK 

B 

000000777470 

EF MOVE 

27 INO 

B 

32 

27 BLK I 

63 1N D 

B 

77 

64 BLOCK 

PASSES 

B 

4 

5GULPS 

119RD 

RPV 

119 LAST5K 


3240V 

CKS 

B 

6250 

3240 

PARA 

EQLS 

END 

40226B) 



O U X 
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311B BLOCKS 41520 00126 00 00002 00311 

K 1 BLOCK 41521 00127 00 00007 77470 

41522 00130 00 00000 00032 

INDEX 41523 00131 00 00000 00077 

41524 00132 00 00000 00004 

41525 00133 75 10167 00034 

41526 00134 00 00000 06250 

41527 00135 00 00000 C0000 



1103AF-0PS-000Q1S 


NAME* 

FUNCTION* 

OPERATING 

INSTRUCTIONS* 


MAGNETIC TAPE DUPLICATE AND/OR COMPARE. 

To duplicate a fixed block magnetic tape with the option of 
a comparison check; or to compare two previously prepared 
magnetic tapes. 

1. Clear console. 

2. Set PAK - UOOlU. 

3. MJ1 ON for duplicate with no compare. 

MJ2 ON for compare only 0 

it. Set Q - MO OOOBB OOOCC 
BB » Input tape. 

CC ■ Output tape or second input tape. 

M » 0, duplicate or compare tape including every 
occurrence of an end of file. 

M * 1*, duplicate tape omitting all end of file blocks 
from the duplicate tape. 

M - 2, duplicate tape omitting all end of file blocks 
from the duplicate tape and adding an end of file 
block at the end of the duplicate tape. 

5. Set A - 00 0000N Q000K. 

If N*0, K-number of sequential blocks of information to 
be duplicated and/or compared, starting with the first 
block. 

If N/O, K-number of sequential files of information to 
be duplicated and/or compared, starting with the N^* 1 


file. 



1103AF-OPS-00001S 


MAGNETIC TAPE 

CODE: 

STOPS* 

COMMENTS: 


DUPLICATE AND/OR COMPARE (Cont»d) 

lii. 

PAK ** 1*0000, Success stop* 

PAK ■ 00073* Block Mode error (see Comments)* 

PAK ■ 00131# Tapes do not compare* 

PAK ■ 00001, Tape fails all biases* 

A File is n blocks of information followed by one block of 
printer stop code (end of file)* If, while in the Block 
Mode (N»0), and end of file block is detected, the routine 
stops with PAK00073* Depressing the start button wills 
1* MJ1 ON, rewind tapes and exit* 

2* MJ1 OFF, compare the blocks of information that have 
been duplicated. 

To duplicate additional blocks, restart the routine with 
the number of additional blocks in A and Q=M0 000AA 000CC# 


M=»0 or 2 
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setl 

53373B5 

53373B) 

TAPE DUPLICATE/COMPARE 






TPDUPL 

RJ 

SAVE+5 

SAVE 

SAVE REGS AND 1ST 1224 


53373 

37 

40044 

40037 


RPB 

200 

CORE 

LOAD PROGAM 


53374 

75 

30310 

00004 


TP 

TPDUPL 

CORE-3 

INTO CORE 


53375 

11 

53373 

00001 


SETL 


4 

PROGRAM STARTS AT LOC* 4 






CORE 

TJ 

UADV 

BLKMOD 

TEST-BLOCK OR FILE MODE 

53376 

00004 

42 

00273 

00025 

FILMOD 

SS 

L {1 ) 


NO. OF FILES IN SEQ.-l 

53377 

00005 

34 

00274 

00000 


TV 

A 

SEQ 

STORE NO. OF FILES 

53400 

.00006 

16 

32000 

00240 


LTL 

21 

A 

FILE NO TO AR 

53401 

00007 

22 

00025 

32000 


ST 

L (1 ) 

FILECT 

SET FILE NUMBER INDEX 

53402 

00010 

36 

00274 

00237 


TP 

UADV 

BLKCT 

OVERLOAD BLK COUNT INDEX 

53403 

00011 

11 

00273 

00241 


TP 

Q 

A 

SAVE Q 

53404 

00012 

11 

31000 

32000 

CODTST 

QJ 

NOEOF 

L + l 

TEST-NO EOF AT ALL 

53405 

00013 

44 

00031 

00014 


QJ 

ONEEOF 

L + l 

TEST-EOF AT END ONLY 

53406 

00014 

44 

00030 

00015 

SETEFS 

LG 

A 

Q+12 

MORE THAN ONE EOF 

53407 

00015 

55 

32000 

31014 


QT 

L (170000B) 

GULP 

ACTUAL NUMBER OF FILES 

53410 

00016 

51 

00275 

00244 


RPU 

3 

L+2 

FORM WRITE EFS 

53411 

00017 

75 

20005 

00021 


RA 

WRTONV 

GULP 

FOR SERVO IN U OF Q 

53412 

00020 

21 

00252 

00244 


LG 

Q 

21 

REPEAT FOR 

53413 

00021 

55 

31000 

00025 


QT 

L {170000B) 

GULP 

READ FILES 

53414 

00022 

51 

002J5 

00244 


RPU 

5 

STDUP 

FORM READ EFS 

53415 

00023 

75 

20005 

00034 


RA 

RDFFRU 

GULP 

FOR SERVO IN U OF Q 

53416 

00024 

21 

00257 

00244 

BLKMOD 

ST 

L {1) 

BLKCT 

SET BLOCK COUNT INDEX 

53417 

00025 

36 

00274 

00241 


TV 

BLKSTP 

TOCKFL 

SET FOR STOP ON EOF 

53420 

00026 

16 

00250 

00140 


MJ 


CODTST-1 

RETURN TO EOF STOP 

53421 

00027 

45 

00000 

00012 

ONEEOF 

TV 

VWREOF 

SKPCMP-1 

SET-ADD EOF AT END 

53422 

00030 

16 

00270 

00072 

NOEOF 

TV 

TSTPAR+3 

CHKFIL+1 

SET-NO EOF BETWEEN FILES 

53423 

00031 

16 

00046 

00064 


TV 

8V 

COMPAR+4 

SET COMPARE TO IGNOR. EOF 

53424 

00032 

16 

00271 

00100 


MJ 


SETEFS 

RETURN TO SET EOFS 

53425 

00033 

45 

00000 

00015 

STDUP 

EF 


RDFFRU 

START READ TAPE FROM U 

53426 

00034 

17 

00000 

00257 


TP 

L {0 ) 

BLOCKS 

CLEAR BLOCK COUNTER 

53427 

00035 

11 

00276 

00242 

SETRD 

TV 

VBUFR 

READ+1 

PRESET READ ADDRESS 

53430 

00036 

16 

00247 

00041 


TP 

L ( 29 ) 

GULP 

SET GULP INDEX-30 BLOCKS 

53431 

00037 

11 

00277 

00244 

READ 

RP V 

120 

L + 2 

READ 

53432 

00040 

75 

10170 

00042 


ER1 


FILL 

120 WORDS 

53433 

00041 

76 

10000 

30000 


ERO 


A 

READ IOA 

53434 

00042 

76 

00000 

32000 

TSTPAR 

ZJ 

BIASCK 

L + l 

TEST PARITY 

53435 

00043 

47 

00210 

00044 


SP 

READ+1 

15 

FORM 

53436 

00044 

31 

00041 

00017 
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TU 

A 

L+2 

EOF TEST QUANTITY 

53437 

00045 

3.5 

32000 

00047 


RA 

BLOCKS 

L (1 ) 

BUMP BLOCK COUNTER 

53440 

00046 

21 

00242 

00274 

PRELIM 

TP 

FILL 

A 

INITIAL TEST 

53441 

00047 

11 

3 0000 

3 2000 

EOFCHK 

EJ 

PRSTOP 

CHKEOF 

TEST FOR 

53442 

00050 

43 

00245 

00135 


RA 

READ+1 

L(120) 

END OF FILE 

53443 

00051 

21 

00041 

00300 


1 J 

BLKCT 

L+2 

TEST-ALREADY READ IN 

53444 

00052 

41 

00241 

00054 


M J 


CHKFIL+2 

RIGHT NUMBER OF BLOCKS 

53445 

00053 

45 

00000 

Of; 06 5 


I J 

GULP 

READ 

TEST-READ IN 30 BLOCKS 

53446 

.00054 

41 

00244 

00040 

CE 

TP 

FILECT 

A 

TEST-IF IN 

53447 

00055 

11 

00237 

32000 


ZJ 

SETRD-1 

L + l 

REQUESTED FILE 

53450 

00056 

47 

00035 

00057 


TV 

I JSSEQ 

DUMJMP 

YES-SET FOR READ AFT DUP 

53451 

00057 

16 

00071 

00070 


MJ 


CHKFIL+2 

STOP READ AND GO TO WRIT 

53452 

00060 

45 

00000 

00065 


RS 

BLOCKS 

L { 1 } 

DONT COUNT BLK OF EOF 

53453 

00061 

23 

00242 

00274 


MJ 


READ 

READ NEXT BLOCK 

53454 

00062 

45 

00000 

00040 

CHKFIL 

I J 

FILECT 

SETRD-1 

INTO SAME ADDRESS 

53455 

00063 

41 

00237 

00035 


RS 

BLOCKS 

L ( 0 5 

STOP TAPE 

53456 

00064 

23 

00242 

00276 


EF 


STOP TP 

TOTAL NUMBER OF BLOCKS 

53457 

00065 

17 

00000 

00264 


RA 

TOTAL 

BLOCKS 

GO TO DUPL ROUTINE 

53460 

00066 

21 

00243 

00242 


RJ 

WRTXIT 

DUPL 

DUMMY JUMP L L+l 

53461 

000&7 

37 

00155 

00150 

DUMJMP 

RJ 

L 

L + l 

TEST-DONE 5 FILES IN SEQ 

53462 

00070 

37 

00070 

00071 

IJSSEQ 

IJ 

SEQ 

STDUP 

SET V FOR FINAL EOF 

53463 

00071 

41 

00240 

00034 


MJ 


L + l 

LEAVE IN OR DELETE EOF 

53464 

00072 

45 

00000 

00073 

SKPCMP 

MJ1 


STPDUP 

SKIP COMPARE IF MJ1 ON 

53465 

00073 

45 

10000 

00145 

COMPAR 

TP 

RDBFRU 

RDFFRU 

SET READ BACKWRDS FROM U 

53466 

00074 

11 

00260 

00257 


TP 

CP 

CE 

SET TO BYPASS FILE TEST 

53467 

00075 

11 

00103 

00055 


TP 

MOVFDU 

MOVBKU 

SET BIASCK FR READ BKWDS 

53470 

00076 

11 

00262 

00261 


TV 

LOADA+2 

TOCKFL 

SET BYPASS CHKFIL 

53471 

00077 

16 

00141 

00140 


RA 

TOCKFL 

L ( 0 5 

SET TO BYPASS EOFS ON U 

53472 

00100 

21 

00140 

00276 


TP 

UADV 

BLKCT 

OVERLOAD BLK COUNT INDEX 

53473 

00101 

11 

00273 

00241 


MJ 


TAPCHK 

CHECK TAPE 

53474 

00102 

45 

00000 

00122 

CP 

MJ 


CP+1 

DUMMY JUMP 

53475 

00103 

45 

00000 

00104 


EF 


STOPTP 

STOP AND RD BKWDS FROM U 

53476 

00104 

17 

00000 

00264 


TP 

L(29) 

GULP 

RESET BLOCK COUNTER 

53477 

00105 

11 

00277 

00244 


EF 


RDBFRV 

SET READ BKWDS FROM U 

53500 

00106 

17 

00000 

00253 


TU 

VBUFR 

1T01 

SET COMPARE TEST 

53501 

00107 

15 

00247 

00112 

BK 

TP 

1(119) 

3 

SET INDEX 

53502 

00110 

11 

00301 

00003 


ER1 


A 

ER TO READ EACH WORD 

53503 

00111 

76 

10000 

32000 

1T01 

EJ 

FILL 

L+2 

COMPARISON TEST 

53 $04 

00112 

43 

30000 

00114 
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TV 

SNAFU+3 

PARTST 

DOES NOT COMP SET ALTER 

53505 

00113 

16 

00134 

00117 


RA 

1T01 

UADV 

INCREASE COMPARISON WORD 

53506 

00114 

21 

00112 

00273 


IJ 

3 

BK + 1 

TEST 4 WDS AT A TIME 

53507 

00115 

41 

00003 

00111 


ER 


A 

READ IOA 

53510 

00116 

76 

00000 

32000 

PARTST 

ZJ 

BKBCHK 

L + l 

BIAS TEST 

53511 

00117 

47 

00170 

00120 


IJ 

GULP 

BK 

NO ERROR. RETURN 

53512 

00120 

41 

00244 

00110 


EF 


STOPTP 

STOP READ BKWD FROM U 

53513 

00121 

17 

00000 

00264 

TAPCHK 

RS 

TOTAL 

LOO) 

TAPE CHECK ROUTINE 

53514 

.00122 

23 

00243 

00302 


SJ 

L+l 

STDUP 


53515 

00123 

46 

00124 

00034 


RA 

TOTAL 

L ( 29 ) 


53516 

00124 

21 

00243 

00277 


TP 

TOTAL 

L (29) 


53517 

00125 

11 

00243 

00277 


TU 

L+l 

L-3 


53520 

00126 

15 

00127 

00123 


MJ 

L+l 

STDUP 


53521 

00127 

45 

00130 

00034 


MJ 


STPDUP 


53522 

00130 

45 

00000 

00145 

SNAFU 

EF 


STOPTP 

TAPE COMPARE ERROR 

53523 

00131 

17 

00000 

00264 


EF 


REWNDU 

ROUTINE 

53524 

00132 

17 

00000 

00263 


EF 


REWNDV 


53525 

00133 

17 

00000 

00255 


MS 


SNAFU 


53526 

00134 

56 

00000 

00131 

CHKEOF 

RA 

PRELIM 

L(3100000B) 


53527 

00135 

21 

00047 

00303 


TP 

A 

L+l 


53530 

00136 

11 

32000 

00137 

LOADA 





53531 

00137 

00 

00000 

00000 

TOCKFL 

EJ 

PRSTOP 

CHKFIL 


53532 

00140 

43 

00245 

00062 


MJ 


EOFCHK+1 


53533 

00141 

45 

00000 

00051 

STPBLK 

RJ 

DUMJMP 

CHKFIL+1 

STOP READ* START WRITE 

53534 

00142 

37 

00070 

0006 + 


TP 

TOTAL 

A 

(A) EQUALS TOTAL BLOCKS 

53535 

00143 

11 

00243 

32000 


MS 


SKPCMP 

STOP-SET FR CMP OR RWND 

53536 

00144 

56 

00000 

00073 

STPDUP 

EF 


REWNDU 


53537 

00145 

17 

00000 

00263 


EF 


REWNDV 


53540 

00146 

17 

00000 

00255 


MJ 


RESTOR 

RESTORE CORE AND STOP 

53541 

00147 

45 

00000 

40046 

DUPL 

MJ2 


SETMOV 


53542 

00150 

45 

20000 

00231 


TV 

VBUFR 

WRITE 


53543 

00151 

16 

00247 

00157 


EF 


WRTONV 


53544 

00152 

17 

00000 

00252 


IJ 

BLOCKS 

L + 3 

TEST-REQUIRED NUMBFR OF 

53545 

00153 

41 

00242 

00156 


EF 


STOPTP 

BLOCKS WRITTEN 

53546 

00154 

17 

00000 

00264 

WRTXIT 

MJ 


FILL 


53547 

00155 

45 

00000 

30000 


RPV 

120 

L+2 

WRITE 120 WORDS 

53550 

00156 

75 

10170 

00160 

WRITE 

EW1 


FILL 


53551 

00157 

77 

10000 

30000 


RA 

WRITE 

L{120) 

BUMP WRITE LOCATION 

53552 

00160 

21 

00157 

00300 
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MJ 


DUPL+3 


53553 

00161 

45 

00000 

00153 

WRTEOF 

EF 


WRTONV 

WRITE END OF FILE 

53554 

00162 

17 

00000 

00252 


RP 

120 

L+2 

AND MOVE BACK 

53555 

00163 

75 

00170 

0016 5 


EW1 


PRSTOP 

ONE BLOCK SO 

53556 

00164 

77 

10000 

00245 


EF 


STOPTP 

THAT TAPE IS 

53557 

00165 

17 

00000 

00264 


EF 


MOVBKV 

READY FOR COMPARE 

53560 

00166 

17 

00000 

00256 


MJ 


SKPCMP 

ROUTINE* 

53561 

00167 

45 

00000 

00073 

BKBCHK 

EF 


MOVFDV 

MOVE V TAPE FWD ONE BLK 

53562 

00170 

17 

00000 

00254 


IJ 

BIASIN 

BKBCHG 

CHECK BIAS 

53563 

00171 

41 

00251 

00174 


EF 


BIASNO 

SET BIAS NORMAL 

53564 

00172 

17 

00000 

00265 


MS 


FAIL 


53565 

00173 

56 

00000 

00001 

BKBCHG 

SP 

A 

12 

DETERMINE 

53566 

00174 

31 

32000 

00014 


AT 

BIASLO 

BIASHL 

HIGH BIAS 

53567 

00175 

35 

00267 

00266 


EF 


BIASHL 

AND RESET 

53570 

00176 

17 

00000 

00266 


TV 

BKBRST+6 

PARTST 


53571 

00177 

16 

00207 

00117 


MJ 


BK-1 


53572 

00200 

45 

00000 

00107 

PKBRST 

TV 

BKBRST+5 

PARTST 


53573 

00201 

16 

00206 

00117 


EF 


STOPTP 

STOP TAPE 

53574 

00202 

17 

00000 

00264 


EF 


BIASNO 

SET NORMAL BIAS 

53575 

00203 

17 

00000 

00265 


EF 


RDBFRV 

SET BACKWARD READ 

• 53576 

00204 

17 

00000 

00253 


TP 

TWO 

BIASIN 


53577 

00205 

11 

00246 

00251 


MJ 


PARTST+1 


53600 

00206 

45 

00000 

00120 




BKBRST 


53601 

00207 

00 

00000 

00201 

BIASCK 

EF 

5 

MOVBKU 

MOVE TAPE BACK 1 BLOCK 

53602 

00210 

17 

00000 

00261 


IJ 

BIASIN 

CHGBIS 

TEST-NUMBER OF BIAS CHGS 

53603 

00211 

41 

00251 

00214 


EF 


BIASNO 


53604 

00212 

17 

00000 

00265 


MS 


FAIL 

BIAS FAILURE STOP 

53605 

00213 

56 

00000 

00001 

CH6BIS 

SP 

A 

12 

SHIFT A TO SET CHNG BIAS 

53606 

00214 

31 

32000 

00014 


AT 

BIASLO 

BIASHL 

CHANGE BIAS EF 

53607 

00215 

35 

00267 

00266 


EF 


BIASHL 

SET TO LOW OR HIGH BIAS 

53610 

00216 

17 

00000 

00266 


TV 

BRESET+6 

TSTPAR 


53611 

00217 

16 

00230 

00043 


EF 


RDFFRU 

START READ FORWARD FR U 

53612 

00220 

17 

00000 

00257 


MJ 


READ 

60 TO READ IN SAME BLOCK 

53613 

00221 

45 

00000 

00040 

3RESET 

TV 

BRESET+5 

TSTPAR 


53614 

00222 

16 

00227 

00043 


EF 


STOPTP 


53615 

00223 

17 

00000 

00264 


EF 


BIASNO 

CHANGE BACK TO NORM BIAS 

53616 

00224 

17 

00000 

00265 


EF 


RDFFRU 

START READ FWD FROM U 

53617 

00225 

17 

00000 

00257 


TP 

TWO 

BIASIN 


53620 

00226 

11 

00246 

00251 




TAPE 

DUPLICATE AND COMPARE 
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MJ 


TSTPAR+1 




53621 

00227 

45 

00000 

00044 




BRESET 




53622 

00230 

00 

00000 

00222 

SETMOV 

TP 

WRTEOF+5 

WRTEOF 

BYPASS ADD EOF AT 

END 

53623 

00231 

11 

00167 

00162 


SP 

MOVFDV 





53624 

00232 

31 

00254 

00000 


AT 

BLOCKS 

2 




53625 

00233 

35 

00242 

00002 


I J 

2 

L+l 




53626 

00234 

41 

00002 

00235 


EF 


2 

MOVE FORWARD BY THIS 


53627 

00235 

17 

00000 

00002 


MJ2 


WRTXIT 

NUMBER OF BLOCKS 



53630 

002 36 

45 

20000 

00155 

filect 







53631 

00237 

00 

00000 

00000 

SEQ 







53632 

00240 

00 

00000 

00000 

BLKCT 







53633 

00241 

00 

00000 

00000 

BLOCKS 







53634 

00242 

00 

00000 

00000 

TOTAL 







53635 

00243 

00 

00000 

00000 

GULP 







53636 

00244 

00 

00000 

00000 

PRSTOP 

B 

606060606060 





53637 

00245 

60 

60606 

06060 

TWO 

B 

2 





53640 

00246 

00 

00000 

00002 

VBUFR 


BUFFER 

BUFFER 




53641 

00247 

00 

00310 

00310 

BLKSTP 



STPBLK. 




53642 

00250 

00 

00000 

00142 

BI AS 1N 

B 

2 





53643 

00251 

00 

00000 

00002 

WRTONV 

B 

020004600000 


WRITE FORWARD ON V 



53644 

00252 

02 

00046 

00000 

RDBFRV 

B 

020001200000 


READ BACKWARD FROM 

V 


53645 

00253 

02 

00012 

00000 

MOVFDV 

B 

020000400001 


MOVE TAPE ON V FWD 

1 

BLK 

53646 

00254 

02 

00004 

00001 

REWNDV 

B 

020020000000 


TAPE REWIND 



53647 

00255 

02 

00200 

00000 

MOVBKV 

B 

020001400001 


MOVE BACK A BLOCK 



53650 

00256 

02 

00014 

00001 

RDFFRU 

B 

020000200000 


READ FORWARD FROM I 

U 


53651 

00257 

02 

00002 

00000 

RDBFRU 

B 

020001200000 


READ BACKWARD FROM 

u 


53652 

00260 

02 

00012 

00000 

MOVBKU 

B 

020001400001 


MOVE TAPE ON U BKD 

1 

BLK 

53653 

00261 

02 

00014 

00001 

MOVFDU 

B 

020000400001 


MOVE TAPE ON U FWD 

1 

BLK 

53654 

00262 

02 

00004 

00001 

REWNDU 

B 

020020000000 


REWIND 



53655 

00263 

02 

00200 

00000 

STOPTP 

B 

020060000000 


STOP 



53656 

00264 

02 

00600 

00000 

BIASNO 

B 

020000150000 


NORMAL BIAS 



53657 

00265 

02 

00001 

50000 

B1ASHL 

B 



HIGH BIAS 



53660 

00266 

00 

00000 

00000 

RIASLO 

B 

020000160000 


LOW BIAS 



53661 

00267 

02 

00001 

60000 

VWREOF 



WRTEOF 




53662 

00270 

00 

00000 

00162 

8 V 



L ( 8 ) 




53663 

00271 

00 

00000 

00304 

120IND 







53664 

00272 

00 

00000 

00000 

UADV 


1 





53665 

00273 

00 

00001 

00000 


BUFFER EQLS 310B) 



TAPE DUPLICATE AND COMPARE 

FAIL EQL5 1 

DC I EOLS 41770B) 

RESTOR EQLS 40046B ) 

SAVE EOLS 40037B) 

SETL 274B) 

CONSTANT P OOL 


END 
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L (1 ) 

L{170000B 5 
L {0 ) 

L (29 ) 

L(1 20 ) 

L ( 119 ) 

LOO) 

L(3100000B) 


L ( 8 ) 


53666 00274 

53667 00275 

53670 00276 

53671 00277 

53672 00300 

53673 00301 

53674 00302 

53675 00303 

53676 00304 


00 00000 OOOCi 
00 00001 70000 
00 00000 00000 
00 00000 00035 
00 00000 00170 
00 00000 00167 
00 00000 00036 
00 00031 00000 
00 00000 00010 



1103AF-OPS-00001S 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 


CODE: 

STOPS: 

COMMENTS: 


PRINT BINARY TAPE. 

Prepare an octal listing tape for the High Speed Printer by- 
converting the information contained on any fixed block 
binary tape# 

1. Clear console# 

2. Set PAK - U0015. 

3# Block Mode: 

a. Set Q « 1:0 OOAA OOOBB 

where AA “ input tape 

BB = output tape# 

b. Set A “ number of blocks# 

U« File Mode: 

a. Set Q - NN OOOAA OOOBB 

where NN<37g, the number of files 
AA » input tape 
BB - output tape# 

5# Depress start button# 

15 . 

PAK ■ 1:0000, Success stop. 

In the Block Mode this routine recognizes a block of printer 
stops (60’s) as a termination indicator. The number of files 
on a tape equals the number of blocks of printer stops# 



1103AF-OPS-00001S 


PRINT BINARY TAPE (Cont'd) 

This routine may be used under program control as follows: 

1. Without BOSS: 

a* TP PARAM Q 

b. TP Number Blocks A 

c. RJ U003U 1:0015 

where PARAM is the proper parameter for the desired mode* 
2* With BOSS: 

Same as above except the uniservos indicated in PARAM 
must be mnemonic (W, X, Y, Z)* 
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CORE 

OUTPUT 

BEGIN 

COREST 


SETUP 


PRINT BINARY TAPE 


'SETL 

RSRV 

3600 

3600 

RSRV 

20 

20 

SETL 

53677B ) 

53677B) 

MJ 


8E61N+3 

TP 

ZERO 

SFF 

MJ 


SVCXIT 

RPB 

445B5 

COREST 

TP 

BEGIN 

COREST-5 

SETL 


70658) 

LTR 


BETA 

TP 

Q 

ALPHA 

SP 

MFF 


ZJ 

L+l 

SETUP 

TP 

ONE 

SFF 

TV 

KONST+14 

END+5 

SP 

0 


ss 

71U71V 


AT 

KONST+3 

KONST+3 

TU 

KONST+3 

L+l 

SP 


15 

TU 

A 

KONST + 4 

SP 

KONST+3 

15 

TU 

A 

L + l 

TV 


KONST +4 

TP 

KONST+4 

Q 

QT 

17V 

A 

LTR 

12 

DELTA 

AT 

WRITE 

WRITE 

RA 

REWNDW 

DELTA 

LQ 

Q 

33 

QT 

SRVMSK 

DELTA 

RPU 

3 

L+2 

RA 

READ 

DELTA 

TP 

ALPHA 

A 

SJ 

L + l 

L+8 

TP 

ZERO 

ENDFIL 

SP 

BETA 



PRINT BINARY TAPE 
INPUT BUFFER ON CORE 
OUTPUT BUFFER 
ROUTINE STORED AT 53677B 
TRANSFER TO OBTAIN PROG. 
CLEAR SERVICE FLIP-FLOP 
TRNSFR TO SERVICE EXIT 
TRANSFER PRINT BINARY 
PROGRAM TO CORE 
ROUTINE EXECUTED AT 7065 
SAVE {AR5-BLOCK COUNT 
SAVE PARAMETER WORD 
TEST MASTER FLIP-FLOP 
IF MFF=1♦ SET SFF 
PROGRAM UNDER CONTROL OF 
BOSS. SET SF F=1 
TRANSLATE PARAMETER 
WORD 

OP TPTABL+XX TP+A8L+XX 
STORE BINARY TAPE NO. 

OF BINARY TAPE 
EXTRACT READ SERVO NO. 
EXTRACT 
WRITE 

UNISERVO NUMBER 
TRNSLTD U V OF PARAM WD 
V OF Q TO A 
SAVE WRITE SERVO NO. 

SET EF FOR TAPE WRITE 
SET EF REWIND WRITESERVO 
POSITION TAPE NO. 

SAVE READ SERVO NO. 

SET UP EFS FOR RD SERVO 
READ-MOVBAK-REWND RD TP 
TEST FOR BLK OR FILE 
BLOCK COUNT OR FILE CT 
END-OF-FILE INDEX TO 0 
SET (AR) TO BLOCK COUNT 



53677 

45 

00000 

53702 


53700 

11 

07476 

17777 


53701 

45 

00000 

40034 


53702 

75 

30445 

07065 


53703 

11 

53677 

07060 

53704 

07065 

22 

10000 

07471 

53705 

07066 

11 

31000 

07470 

53706 

07067 

31 

40036 

00000 

53707 

07070 

47 

07071 

07105 

53710 

07071 

11 

07477 

17777 

53711 

07072 

16 

07451 

07333 

53712 

07073 

31 

31000 

00000 

53713 

07074 

34 

07515 

00000 

53714 

07075 

35 

07436 

07436 

53715 

07076 

15 

07436 

07077 

53716 

07077 

31 

00000 

00017 

53717 

07100 

15 

32000 

07437 

53720 

07101 

31 

07436 

00017 

53721 

07102 

15 

32000 

07103 

53722 

07103 

16 

00000 

07437 

53723 

07104 

11 

07437 

31000 

53724 

07105 

51 

07504 

32000 

53725 

07106 

22 

10014 

07475 

53726 

07107 

35 

07465 

07465 

53727 

07110 

21 

07466 

07475 

53730 

07111 

55 

31000 

00041 

53731 

07112 

51 

07514 

07475 

53732 

07113 

75 

20003 

07115 

53733 

07114 

21 

07460 

07475 

53734 

07115 

11 

07470 

32000 

53735 

07116 

46 

07117 

07126 

53736 

07117 

11 

07476 

07467 

53737 

07120 

31 

07471 

00000 



PRINT BINARY TAPE 



EOFTST+3 
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GROUPS NO OF 30-BLK GRPS 
TEST ON ZERO FOR NUMBER 
OF XS3 BLKS OVER MOD3 
BLKS {NO. EXCESS'”! ) 
TRNSFR TO ORIG-1 
OVERLOAD GRP COUNT INDEX 
SET UP END OF FILE INDEX 
IN AR 

NO OF FILES MINUS 1 
NO OF FILES MINUS 1 
RESET BIAS CHANGE INDEX 
SET NORMAL BIAS 
TEST-NO OF 30 BLCK GRPS 
SET UP 

REMAINDER INDEX 
SET NO OF XS3 BLKS-l 
START READ 
READ I OB REPEATED 
TO OBTAIN BLOCK 
READ IOA 
TEST BIAS 

LOAD FIRST WORD OF BLOCK 
PRELIM TEST-EOF (60S) 
ADVANCE FOR NEXT BLOCK 
ADVANCE FOR NEXT BLOCK 
TEST-READ REQRD NO BLKS 
RESET FOR NEXT GROUP 
RESET FOR NEXT GROUP 
STOP READ TAPE 
TO XS3 CONVERSION ROUTNE 
TEST FOR EOF BLOCK 
STOP READ AND SET TO 
PICK UP FIRST WORD 
LOAD WORD INTO A 
TEST FOR 606060606060 
NOT EOF, START READ» 
CONTINUING PROCESS 
SET FOR NEXT CELL 


53740 07121 73 07506 07472 

53741 07122 47 07124 07123 

53742 07123 16 07361 07136 

53743 07124 36 07477 07473 

53744 07125 45 00000 07132 

53745 07126 11 07514 07472 

53746 07127 31 32000 00006 

53747 07130 22 00000 32000 

53750 07131 36 07477 07467 

53751 07132 11 07467 07373 

53752 07133 11 07500 07372 

53753 07134 17 00000 07457 

53754 07135 41 07472 07334 

53755 07136 45 00000 07137 

53756 07137 11 07473 07365 

53757 07140 11 07473 07447 

53760 07141 17 00000 07460 

53761 07142 75 10170 07144 

53762 07143 76 10000 00010 

53763 07144 76 00000 32000 

53764 07145 47 07172 07146 

53765 07146 11 00010 32000 

53766 07147 43 07364 07157 

53767 07150 21 07146 07517 

53770 07151 21 07143 07511 

53771 07152 41 07365 07142 

53772 07153 16 07366 07143 

53773 07154 15 07366 07146 

53774 07155 17 00000 07463 

53775 07156 45 00000 07212 

53776 07157 17 00000 07463 

53777 07160 11 07510 07367 

54000 07161 15 07146 07162 

54001 07162 11 00000 32000 

54002 07163 43 07364 07166 

54003 07164 17 00000 07460 

54004 07165 45 00000 07150 

54005 07166 21 07162 07512 




BIASCK 

CHGBIS 

BRESET 

CNVERT 


PRINT BINARY TAPE 


IJ 

CONST+3 

EOFTST+3 

IJ 

ENDFIL 

EOFTST+5 

MJ 


CNVERT 

EF 


MOVBAK 

IJ 

CONST+6 

CHGBIS 

EF 


BIASNO 

MS 


FAIL 

SP 

A 

12 

AT 

BIASLO 

BIASHL 

EF 


BIASHL 

TV 

BRESET+6 

TSTPAR 

MJ 


READIN 

TV 

BRESET+5 

TSTPAR 

EF 


STOP 

EF 


BIASNO 

EF 


READ 

TP 

TWO 

CONST+6 

MJ 


TSTPAR+1 

BRESET 

EF 


WRITE 

TP 

CORE 

A 

EJ 

CONST 

TSTEOF 

TP 

CORE 

Q 

RPB 

12 

L+2 

QT 

7MASKS 

DIGIT 

SP 

KONST 


RPU 

11 

L+2 

SA 

DIGIT 

3 

SA 

DIGIT+11 


LTL 


OUTPUT 

AT 

KONST+1 

OUTPUT+1 

TP 

CORE+1 

Q 

RPB 

12 

L+2 

OT 

7MASKS 

DIGIT 

SP 

K0N5T 


RPU 

3 

L+2 

SA 

DIGIT 

3 

LTL 

6 

OUTPUT+2 
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TEST-WHOLE BLK OF 60S 
TEST-LAST END OF FILE 
TO XS3 CONVERSION 
MOVE TAPE BACK 1 BLOCK 
TEST BIAS 
BIAS FAILURE STOP 
SHIFT A TO SET BIAS CHNG 
CHANGE EF FOR BIAS SET 
CHANGE TO LO OR HI BIAS 
SET PARITY TEST 
GO TO READ IN SAME BLOCK 
RESET PARITY TEST 
STOP READ TAPE 
SET NORMAL BIAS 
CHANGE BACK TO NORM BIAS 
RESTART READ 
RESET BIAS CHECK INDEX 
TRNSFER TO PARITY TEST 
BIAS CHANGE DUMMY 
XS3 CONVERSION ROUTINE 
LOAD BINARY WORD 
PRELIM TEST-END OF FILE 
LOAD ODD BINARY WORD 
MASK OUT AND STORE 
OCTAL DIGITS 
AR=303030303030 
FORM 1ST HALF 
OF XS3 REPRESENTATION 
IN AL 

STORE AL—1 ST HALF XS3 WD 
STORE AR-2D HALF XS3 REP 
LOAD BINARY WORD 
MASK OUT AND STORE 
OCTAL DIGITS 
AR=303030303030 
FORM 3 SPACES AND 1ST 3 
DIGITS OF XS3 REP 
AND STORE 


54006 

07167 

41 

07367 

07162 

54007 

07170 

41 

07467 

07164 

54010 

07171 

45 

00000 

07212 

54011 

07172 

17 

00000 

07461 

54012 

07173 

41 

07372 

07176 

54013 

07174 

17 

00000 

07457 

54014 

07175 

56 

00000 

00001 

54015 

07176 

31 

32000 

00014 

54016 

07177 

35 

07464 

07474 

54017 

07200 

17 

00000 

07474 

54020 

07201 

16 

07211 

07145 

54021 

07202 

45 

00000 

07141 

54022 

07203 

16 

07210 

07145 

54023 

07204 

17 

00000 

07463 

54024 

07205 

17 

00000 

07457 

54025 

07206 

17 

00000 

07460 

54026 

07207 

11 

07500 

07372 

54027 

07210 

45 

00000 

07146 

54030 

07211 

00 

00000 

07203 

54031 

07212 

17 

00000 

07465 

54032 

07213 

11 

00010 

32000 

54033 

07214 

43 

07364 

07336 

54034 

07215 

11 

00010 

31000 

54035 

07216 

75 

30014 

07220 

54036 

07217 

51 

07403 

07417 

54037 

07220 

31 

07433 

00000 

54040 

07221 

75 

20013 

07223 

54041 

07222 

32 

07417 

00003 

54042 

07223 

32 

07432 

00000 

54043 

07224 

22 

00000 

07030 

54044 

07225 

35 

07434 

07031 

54045 

07226 

11 

00011 

31000 

54046 

07227 

75 

30014 

07231 

54047 

07230 

51 

07403 

07417 

54050 

07231 

31 

07433 

00000 

54051 

07232 

75 

20003 

07234 

54052 

07233 

32 

07417 

00003 

54053 

07234 

22 

00006 

07032 



PRINT BINARY TAPE 


TAPFUL 


SP 

CONST+4 


RPU 

9 

L+2 

SA 

DIGIT+3 

3 

SA 

CONST+5 

15 

LTL 


OUTPUT+3 

LTR 


OUTPUT+4 

RA 

CNVERT+3 

2U 

RA 

CNVERT+12 

2U 

RA 

CNVERT+1C 

FIVE 

RA 

CNVERT+11 

FIVE 

RA 

CNVERT+18 

FIVE 

RA 

CNVERT+23 

FIVE 

RA 

CNVERT+24 

FIVE 

IJ 

KONST+2 

CNVERT+3 

TP 

THREE 

KONST+2 

RPV 

20 

L+2 

EW1 


OUTPUT 

TV 

KONST+6 

CNVERT+10 

TV 

KONST+7 

CNVERT+11 

TV 

KONST+8 

CNVERT+18 

TV 

KONST+9 

CNVERT+23 

TV 

KONST+10 

CNVERT+24 

IJ 

KONST+13 

CNVERT+3 * 

TP 

14V 

KONST+13 

RPO 

60 

L+2 

EW1 


ZERO 

RA 

CNVERT+1 

BLKA.DV 

IJ 

KONST+12 

L+2 

MJ 


END 

IJ 

KONST+11 

CNVERT+1 

TU 

CONST+2 

CNVERT+1 

TU 

CONST+2 

CNVERT+3 

TU 

KONST+14 

CNVERT+12 

TP 

THIRTY 

KONST+12 

TP 

29 V 

KONST+11 

EF 


STOP 

IJ 

MORE 

OR1G 

TP 

34V 

MORE 
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AR=000303030303 
FORM LAST 9 DIGITS OF 
XS3 REPRESENTATION AND 
THE 3 SPACES THAT FOLOW 
AND 
STORE 
RESETS 
THE 

CONVERT 
ROUTINE 
FOR THE 
NEXT 

TWO WORDS 

TEST-CONVERTED ONE LINE 
RESET INDEX 
WRITE ONE LINE 

RESET 

OUTPUT 

BUFFER 

STORAGE ADDRESS 
FOR NEXT LINE 
TEST-15 LINES WRITTEN 
(A FULL BLOCK) 

FILL END OF THIRD 
BLOCK WITH ZEROS 
ADV EOF TEST WORD 
TEST-NO OF BLKS CNVRTED 
TO REWIND AND EXIT 
TEST-30 BLOCKS CONVERTED 
RESET CONVERT 
ROUTINE FOR 
NEXT GROUP 
OF 

30 BLOCKS 
STOP TAPE 
TEST¬ 
IS WRITE 


54054 07235 31 07370 00000 

54055 07236 75 20011 07240 

54056 07237 32 07422 00003 

54057 07240 32 07371 00017 

54060 07241 22 00000 07033 

54061 07242 22 10000 07034 

54062 07243 21 07215 07513 

54063 07244 21 07226 07513 

54064 07245 21 07224 07502 

54065 07246 21 07225 07502 

54066 07247 21 07234 07502 

54067 07250 21 07241 07502 

54070 07251 21 07242 07502 

54071 07252 41 07435 07215 

54072 07253 11 07501 07435 

54073 07254 75 10024 07256 

54074 07255 77 10000 07030 

54075 07256 16 07441 07224 

54076 07257 16 07442 07225 

54077 07260 16 07443 07234 

54100 07261 16 07444 07241 

54101 07262 16 07445 07242 

54102 07263 41 07450 07215 

54103 07264 11 07503 07450 

54104 07265 75 00074 07267 

54105 07266 77 10000 07476 

54106 07267 21 07213 07517 

54107 07270 41 07447 07272 

54110 07271 45 00000 07326 

54111 07272 41 07446 07213 

54112 07273 15 07366 07213 

54113 07274 15 07366 07215 

54114 07275 15 07451 07226 

54115 07276 11 07506 07447 

54116 07277 11 07505 07446 

54117 07300 17 00000 07463 

54120 07301 41 07454 07133 

54121 07302 11 07507 07454 



PRINT BINARY TAPE 
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EF 


WRITE 

TAPE FULL 

54122 

07303 

17 

00000 

07465 


RPO 

120 

L+2 

WRITE 

54123 

07304 

7 

00170 

07306 


EW1 


CONST 

**END OF FILE** 

54124 

07305 

77 

10000 

07364 


EF 


STOP 

STOP TAPE 

54125 

07306 

17 

00000 

07463 


EF 


REWNDW 

AND REWIND 

54126 

07307 

17 

ooooo 

0 7 4 6 6 


LG 

MORE+2 

6 

PRINT ON FLEXIWRITER 

54127 

07310 

55 

0745c 

00006 


PR 


MORE+2 

THE LETTERS #*TPFL*** 

54130 

07311 

61 

00000 

07456 


I J 

MORE+1 

L-2 

MEANING WRITE 

54131 

07312 

41 

0 1 45 5 

07310 


TP 

FIVE 

MORE+1 

LEAVE WRITE 

54132 

07313 

11 

07 502 

07455 


TP 

SRVMSK 

Q 

UN ISERVO NO 

54133 

07314 

11 

0*514 

3100 0 


n t 

-CK « 

WRITE 

A 

IN G 

54134 

07315 

51 

07465 

32000 


LTL 

24 

Q 

STOP AND CHANGE TAPES 

54135 

07316 

22 

00030 

310 C 0 


MS 


L+l 

POSN WRITE USRVO NO IN A 

54136 

07317 

56 

ooooo 

7 7 '! f\ 


sp 

0 

12 

TEST—Q=0 * USE SAME SERVO 

54137 

07320 

31 

31000 

r.r.i'-st i, 

V f 


2 J 

L+l 

ORIG 

0 NOT CLEARED 

54140 

07321 

47 

07 722 

07133 


TP 

SRVMSK 

0 

RESET WRITE SERVO EES 

54141 

07322 

11 

07 514 



QS 

A 

WRITE 

ALSO REWIND EF 

54142 

07323 

53 

3 2000 

0746 5 


AT 

13 2 U 

REWNDW 

RE-ENTER 

54143 

073 24 

35 

07516 

07466 


MJ 


ORIG 

EOF WRITE ROUTINE 

54144 

073 25 

45 

OOOOO 

07133 

END 

RP 

120 

L+2 

'WRITE END—OF-FILE 

54145 

07326 

75 

00! 70 

07330 


EW1 


CONST 

ON WRITE TAPE 

541 46 

07327 

77 

10000 

07364 


EF 


STOP 

STOP* REWIND 

54147 

07330 

17 

OOOOO 

07463 


EF 


REWNDR 

READ AND WRITE TAPES 

54150 

07331 

17 

ooooo 

07462 


EF 


REWNDW 

TO SERVICE ROUTINE EXIT 

54151 

07332 

1 7 

X * 

ooooo 

07466 


MJ 


BEGIN+2 

RESET AND 

54152 

07333 

45 

ooooo 

53701 

JUMP 

TP 

29 V 

CONST + 1 

TRANSFER TO READ IN 

54153 

07334 

11 

07505 

07365 


MJ 


READ IN 

END OF FILE TEST 

54154 

07335 

45 

OOOOO 

07141 

TSTEOF 

EF 


STOP 

TAPE FULL 

54155 

07336 

17 

ooooo 

07463 


TU 

CNVERT+1 

■ L + l 

SET WD ADDR FOR TEST 

54156 

07337 

15 

07213 

07340 


TP 


/-% 

TEST- 

54157 

073 40 

11 

OOOOO 

32000 


EJ 

CONST 

L+3 

END OF FILE 

54160 

073 41 

43 

07364 

07 344 


EF 


WRITE 


54161 

07342 

17 

OOOOO 

07465 


MJ 


CNVERT+3 

FAIL TEST 

54162 

07343 

45 

OOOOO 

07215 


RA 

TSTEOF+2 

UADV 

ADVANCE LOAD ADDRESS 

54163 

07344 

21 

07340 

07512 


I J 

CONST + 3 

TSTEOF+2 

TEST-WHOLE BLOCK OF 60S 

54164 

07345 

41 

07367 

07340 


TP 

119 V 

CONST+3 

RESET INDEX 

5416 5 

07346 

11 

07510 

07367 


EF 


WRITE 

WRITE 

54166 

07347 

17 

OOOOO 

07465 


RPV 

2 

L+2 

XS3 CODE 

54167 

07350 

75 

10002 

07352 




N08LKS 

CONST 


7MASKS 


PRINT BINARY TAPE 


EW1 


EOF 

RPO 

118 

L+2 

EW1 


ZERO 

IJ 

CONST+7 

L+2 

MJ 


END 

RA 

CNVERT+3 

BLKADV 

RA 

CNVERT+12 

blkadv 

MJ 


CNVERT+45 

EF 


NOBLKS+1 

WRITE 

MJ 


END 

B 

606060606060 


B 

000000000035 



CORE 

CORE 

B 

167 


e 

000303030303 


e 

000030303030 


B 

2 


B 

B 

2645 


B 

3047 


B 

1423 


B 

1114 


B 

3430 


B 

1224 


B 

2004 


B 

700000000000 


B 

070000000000 


B 

007000000000 


B 

000700000000 


B 

000070000000 


B 

000007000000 


B 

000000700000 


B 

000000070000 


B 

000000007000 


B 

000000000700 


B 

000000000070 


B 

000000000007 
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FOR THE WORDS 
*#END OF FILE** 

ON WRITE TAPE 
TEST-LAST END OF FILE 
TO SERVICE ROUTINE EXIT 
BUMP BINARY 
WORD ADDRESS 

NO BLOCKS 

TO SERVICE ROUTINE 
EXIT 

END OF FILE FILLER 
NO BLOCKS MINUS 1 
BUFFER 

119 IN BINARY 
XS3 CONVERSION 
CONSTANTS 

2 

NO OF FILES MINUS ONE 
B F 
I A 
A I 
S L 

U 

R 

E 

7 MASKS TO OBTAIN 
XS3 CHARACTERS 


54170 

07351 

77 

10000 

07452 

54171 

07352 

75 

00166 

07354 

54172 

07353 

77 

10000 

07476 

54173 

07354 

41 

07373 

07356 

54174 

07355 

45 

00000 

07326 

54175 

07356 

21 

07215 

07517 

54176 

07357 

21 

07226 

07517 

54177 

07360 

45 

00000 

07267 

54200 

07361 

00 

00000 

07362 

54201 

07362 

17 

00000 

07465 

54 2 02 

07363 

45 

00000 

07326 

54203 

07364 

60 

60606 

06060 

54204 

07365 

00 

00000 

0003 5 

54205 

07366 

00 

00010 

00010 

54206 

07367 

00 

oocoo 

00167 

54207 

07370 

00 

03030 

30303 

54210 

07371 

00 

00303 

0 3 C 3 0 

54211 

07372 

00 

00000 

00002 

54212 

07373 

00 

00000 

00000 

54213 

07374 

00 

00000 

02645 

54214 

07375 

00 

OOCOO 

03047 

54215 

07376 

00 

00000 

01423 

54216 

07377 

00 

00000 

01114 

54217 

07400 

00 

00000 

03430 

54220 

07401 

00 

00000 

01224 

54221 

07402 

00 

00000 

02004 

54222 

07403 

70 

00000 

00000 

54223 

07404 

07 

00000 

00000 

54224 

07405 

00 

70000 

OOOCO 

54225 

07406 

00 

07000 

00000 

54226 

07407 

00 

00700 

00000 

54227 

07410 

00 

00070 

00000 

54230 

07411 

00 

00007 

00000 

54231 

07412 

00 

00000 

70000 

54232 

07413 

00 

00000 

07000 

54233 

07414 

00 

00000 

00700 

54234 

07415 

00 

00000 

00070 

54235 

07416 

00 

00000 

00007 
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DIGIT 

RSRV 

12 12 

XS3 CONVERTED LINE 






KONST 

B 

303030303030 

XS3 

54252 

07433 

30 

30303 

03030 


s 

030303030303 

ADDERS 

54253 

07434 

03 

03030 

30303 


B 

3 

3 

54254 

07435 

00 

00000 

00003 



TPTABL TPTABL 

BOSS UNISERVO NUMBER 

54255 

07436 

00 

17700 

17700 


B 


CONVERSION CONSTANT 

54256 

07437 

00 

00000 

00000 


B 

3 

3 

54257 

07440 

00 

00000 

00003 



OUTPUT 

COVERSION 

54260 

07441 

00 

00000 

07030 



OUTPUT+1 

ROUTINE 

54261 

07442 

00 

00000 

07031 



OUTPUT+2 

RESTORE 

54262 

07443 

00 

00000 

07032 



OUTPUT+3 

LOCATIONS 

54263 

07444 

00 

00000 

0703 3 



QUTPUT+4 


54264 

07445 

00 

00000 

07034 


B 

35 

29 

54265 

07446 

00 

00000 

0003 5 


B 

36 

30 

54266 

07447 

00 

00000 

00036 


B 

16 

14 

54267 

07450 

00 

00000 

00016 



CORE+1 BEGIN+I 


54270 

07451 

00 

00011 

53700 

EOF 

B 

013050270151 

END OF FILE 

54271 

07452 

01 

30502 

70151 


B 

310131344630 

IN XS3 

54272 

07453 

31 

01313 

44630 

MORE 

B 

42 

34 

54273 

07454 

00 

00000 

00042 


B 

5 

5 

54274 

07455 

00 

00000 

00005 


B 

450401152611 

TPFL IN FLEX CODE 

54275 

07456 

45 

04011 

52611 

BIASNO 

B 

020000150000 

EF NORMAL BIAS 

54276 

07457 

02 

00001 

50000 

READ 

B 

020000200000 

EF PRESET T 

54277 

07460 

02 

00002 

00000 

MOVRAK 

B 

020001400001 

EF ONE BLOCK 

54300 

07461 

02 

00014 

00001 

REWNDR 

B 

020020000000 

EF PRESET T 

54301 

07462 

02 

00200 

00000 

STOP 

B 

020060000000 

EF STOP 

54302 

07463 

02 

00600 

00000 

BIASLO 

B 

020000160000 

EF LOW BIAS 

54303 

07464 

02 

00001 

60000 

WRITE 

B 

020004600000 

EF PRESET T 

54304 

07465 

02 

00046 

00000 

REWNDW 

B 

020020000000 

EF PRESET T 

54305 

07466 

02 

00200 

00000 

ENDFIL 

B 


END OF FILE INDEX 

54306 

07467 

00 

00000 

00000 

ALPHA 

R 


{U} READ SERV (V) WR SER 

54307 

07470 

00 

00000 

00000 

BETA 

B 



54310 

07471 

00 

00000 

00000 

GROUPS 

B 


NO OF GRPS OF 30 BLOCKS 

54311 

07472 

00 

00000 

00000 

BLOCKS 

B 



54312 

07473 

00 

00000 

00000 

BIASHL 

B 



54313 

07474 

00 

00000 

00000 

DELTA 

B 



54314 

07475 

00 

00000 

OCCOQ 

ZERO 

B 



54315 

07476 

00 

00000 

00000 

ONE 

B 

1 


54316 

07477 

00 

00000 

00001 
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TWO 

B 

2 

54317 

07500 

00 

00000 

00002 

THREE 

B 

3 

54320 

07501 

00 

00000 

00003 

FIVE 

B 

5 

54321 

07502 

00 

00000 

00005 

14V 

B 

16 

54322 

07503 

00 

00000 

00016 

1TV 

B 

17 

54323 

07504 

00 

00000 

00017 

29V 

B 

35 

54324 

07505 

00 

00000 

00035 

THIRTY 

B 

36 

54325 

07506 

00 

00000 

00036 

34V 

B 

42 

54326 

07507 

00 

00000 

0004 2 

119V 

B 

167 

54327 

07510 

00 

00000 

00167 

120V 

B 

170 

54330 

07511 

00 

00000 

00170 

UADV 

B 

100000 

54331 

07512 

00 

00001 

00000 

2U 

B 

200000 

54332 

07513 

00 

00002 

00000 

5RVMSK 

B 

170000 

54333 

07514 

00 

00001 

70000 

71U71V 

B 

7100071 

54334 

07515 

00 

00071 

00071 

132U 

B 

000013200000 

54335 

07516 

00 

00132 

00000 

BLKADV 

B 

17000000 

54336 

07517 

00 

00170 

00000 

FAIL 

EQLS 

1 






MFF 

EQLS 

40036B) 






SVCXIT 

EQLS 

40034B) 






5FF 

EQLS 

17777B) 







SETL 

E 






TPTABL 

EQLS 

17700B) 







END 


cm o"! in vD r - m xo cm i-- o o o o 




1103AF-OPS-OOOOIS 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 


PAPER TAPE PACKAGE 

To read, punch, or duplicate paper tape. 

1. Clear console 

2. Set PAK = U0016 

3. To read: 

a. Paper tape in Ferranti, reader ON. 

b. Clear Q 

c. Set A: 

1) . Zero for normal DCI. 

2) . 00 00000 NNNNN for DCI using cells NNNNN 

thru NNNNN + 122Ug. 

4. To punch: 

a. Turn on Punch 

b. Set Q * 00 AAAAA BBBBB 

AAAAA = Address of first word to be punched. 
BBBBB * Number of words to be punched (octal). 

c. Set A as in 3c for DCI selection. 

d. Set MJ1 for no end code. 

5. To duplicate: 

a. Paper tape in Ferranti, reader ON. 

b. Punch ON. 

c. Set Q = 1 

d. Set A as in 3c for DCI selection. 

6. Depress start button. 



PAPER TAPE PACKAGE (cont.) 


1103AF-OPS-OOOOIS 


CODE: 

STOPS: 

COMENTS: 


16. 


PAK = liOOOO, Success stop. 

PAK = OOOOU, illegal address error. 

PAK = 30000, check address error on read. 


The read and punch routines are based on the standard 
Remington Rand bioctal format with 7th level control con¬ 
figurations. The duplicate routine will duplicate 7 level 
paper tapes not necessarily in Remington Rand format, but 
it does recognize any two consecutive seventh level punches 
as a stop code. All routines except duplicate preserve core. 

Addresses 20000 thru 37777 are illegal addresses (this 
includes A and Q). 

Any drum-core image may be specified by entering the location 
of the first word in the V of A. The specified DCI may be 
any 122ii (octal) consecutive cells in core or drum. 

To restore core after an error, set PAK equal to 5U356 and 
depress start button. 

The punch routine gives 100 frames of leader prior to punching 
the insert address. 


To continue reading a tape after a check address error (PAK=3QQGQ 
set PAKOOQIO and start. 
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SETL 

543378 5 

54337B) 

PAPER TAPE PACKAGE 






DC I 

EQLS 

41770B ) 









ZJ 

L+l 

SAVEF1 

TEST-(A) EQ OtNORMAL DC I 


54337 

47 

54340 

54347 


TV 

A 

SAVEF1 

(A) NOT EQUAL TO ZERO ♦ 


54340 

16 

32000 

54347 


SA 

ONE 


LOCATE DC I (DRUM IMAGE 


54341 

32 

54363 

00000 


TV 

A 

DDCIV 

OF CELLS 0 THRU 1224 


54342 

16 

32000 

54351 


SP 

A 

15 

(OCTAL)) AS INDICATED 


54343 

31 

32000 

00017 


TU 

A 

DDCIU 

BY THE V ADDRESS OF AR• 


54344 

15 

32000 

54357 


SP 

SAVEF1 

15 

{FI 5 ARE SAVED IN DCI+3 


54345 

31 

54347 

00017 


TU 

A 

RESTF1 

DCI-DCI+2 ARE NOT USED* 


54346 

15 

32000 

54360 

SAVEF1 

TP 

FI 

DCI + 3 

(FI) TO DCI+3 


54347 

11 

00000 

41773 

SAVE 

RPB 

1224B) 

L+2 

SAVE THE CONTENTS OF 


54350 

75 

31224 

54352 

DDCIV 

TP 

1 

DC 1+4 

CELLS 1 THRU 1224 IN DCI 


54351 

11 

00001 

41774 


TP 

Q 

A 

SELECT PAPER TAPE ROUTN 


54352 

11 

31000 

32000 


EJ 

ZERO 

PAPERD 

READ PAPER TAPE 


54353 

43 

54362 

54364 


EJ 

ONE 

PPRDUP 

DUPLICATE PAPER TAPE 


54354 

43 

54363 

54510 


MJ 


PPRPCH 

PUNCH PAPER TAPE 


54355 

45 

00000 

54572 

RESTOR 

RPB 

1224B) 

L+2 

RESTORE CELLS 1 THRU 


54356 

75 

31224 

54360 

DDCIU 

TP 

DC I+4 

1 

1224 FROM THE DCI 


54357 

11 

41774 

00001 

RESTF1 

TP 

DC 1 + 3 

FI 

RESTORE FI FROM THE DCI 


54-360 

11 

41773 

00000 


MJ 


40034B5 

EXIT 


54361 

45 

00000 

40034 

FI 

EQLS 









ZERO 






54362 

00 

00000 

00000 

ONE 

B 

1 




54363 

00 

00000 

00001 

PAPERD 

MJ 


L+3 

READ PAPER TAPE ROUTINE 


54364 

45 

00000 

54367 


MS 


ERROR 

CHECK ADDR ERROR STOP 


54365 

56 

00000 

30000 


MJ 


RESTOR 

NORMAL EXIT 


54366 

45 

00000 

54356 

LDPROG 

RPB 

84 

STREAD-1 

TRANSFER PAPER TAPE 


54367 

75 

30124 

00006 


TP 

PAPERD 

STREAD-6 

READ ROUTINE TO CORE 


54370 

11 

54364 

00001 


SETL 


6 








TV 

SAVEF1 

DC I ADR 

SET DCI LOCATION 

54371 

00006 

16 

54347 

00124 

STREAD 

EF 


RDPAPR 

READ ONE FRAME 

54372 

00007 

17 

00000 

00100 

1FRAME 

ER 


Q 

OF PAPER TAPE INTO Q 

54373 

00010 

76 

00000 

31000 


SP 

WRDASS 

6 

ADD DATA LEVELS TO 

54374 

00011 

31 

00101 

00006 


QA 

DATMSK 

WRDASS 

WORD ASSEMBLY 

54375 

00012 

52 

00102 

00101 


SP 

7LCODE 

1 

ADD SEVENTH LEVEL TO 

54376 

00013 

31 

00103 

00001 


QA 

7LMASK 

Q 

INSTR CODE ASSEMBLY 

54377 

00014 

52 

00104 

31000 


QT 

7LMASK 

7LCODE 

ISOLATE 6 BIT INSTR CODE 

54400 

00015 

51 

00104 

00103 
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STADDR 

CKADDR 

STPRDR 

ADRERR 

STORE 

ILEGAL 

ADRTST 

SETDRM 

BUMPRP 


TRNSMT 


EJ 

INSERT 

STADDR 

EJ 

DATA 

STORE+1 

EJ 

CHECK 

CKADDR 

GT 

ENDCOD 

A 

EJ 

ENDCOD 

STPRDR 

MJ 


1FRAME 

TV 

WRDASS 

STORE 

MJ 


1 FRAME 

RJ 

DRUM+3 

LOAD-1 

TP 

WRDASS 

A 

EJ 

STORE 

1FRAME+1 

RJ 

EFSTOP+2 

EFSTOP 

MJ 


PAPERD+1 

RJ 

EF5TOP+2 

EFSTOP 

MJ 


PAPERD+2 

MS 


4 

FILL 

SP 

STORE 


TJ 

LSTBUF 

L+2 

MJ 


ILEGAL 

SA 

DCIADR 


TJ 

20K 

CORADR 

TJ 

40K 

ADRERR 

TV 

DRMSAV 

TRNSMT 

TV 

A 

DRUM 

TU 

DRMSAV 

LOAD 

TP 

RSTDBI 

DBINDX 

TP 

BYPASS 

SETDRM 

RA 

LOAD 

UADV 

IJ 

DBINDX 

TRNSMT 

TP 

TRNSMT 

L+l 

TP 

WRDASS 

FILL 

RJ 

DRUM+3 

LOAD-1 

RA 

STORE 

VADV 

MJ 


1FRAME+1 

TP 

WRDASS 

FILL 

RA 

TRNSMT 

VADV 

RA 

STORE 

VADV 


TEST 

111 

7TH 

101 

LEVEL 

105 

CODE 


NSTR ASSEMBLY 

003 


TO READ NEXT FRAME 
SET INITIAL STORE ADDR 
AMD THEN READ NEXT FRAME 
INTERROGATE DRUM BUFFER 
CHECK ADDRESS TO A 
TEST-CHECK ADDRESS OK 
NOT OK# SO GO TO STOP 
READER AND ERROR EXIT 
END CODE DETECTED*SO 
STOP READER AND EXIT 
ILLEGAL ADDR ERROR STOP 
S EG UNBIASED STORE ADDR 
IF 1225B GTR THN S »THEN 
STORE DATA WORD CORRES¬ 
PONDING TO S IN LOCATION 
GIVEN BY S + DC 1+3 
TEST-15 20000B GTR THN S 
TEST—IS 40000B GTR THN S 
SET FOR TRNSMT TO DRMBUF 
SET DRM ADDR F BLK TNSFR 
SET NR OF REPEATS TO 0 
SET IND-NR WDS IN DRMBUF 
BYPASS SETUP BLK TNSFR 
ADD 1 TO NR OF REPEATS 
TEST-DRM STOR BUFFR FULL 
SET STOR CMD FOR LAST WD 
TRNSMT 608TH WORD 
TRNSMT 607 WORDS TO DRUM 
BUMP UNBIASED STOR ADR 
GET NEXT WORD 
STORE 6 FRAME DATA WORD 
BUMP BIASED STOR ADDR 
BUMP UNBIASED STOR ADR 


54401 

00016 

43 

00105 

00024 

54402 

00017 

43 

00106 

00037 

54403 

00020 

43 

00107 

00026 

54404 

00021 

51 

00115 

32000 

54405 

00022 

43 

00115 

00033 

54406 

00023 

45 

00000 

00010 

54407 

00024 

16 

00101 

00036 

54410 

00025 

45 

00000 

00010 

54411 

00026 

37 

00072 

00065 

54412 

00027 

11 

00101 

32000 

54413 

00030 

43 

00036 

00011 

54414 

00031 

37 

00077 

00075 

54415 

00032 

45 

00000 

54365 

54416 

00033 

37 

00077 

00075 

54417 

00034 

45 

00000 

54366 

54420 

00035 

56 

00000 

00004 

54421 

00036 

00 

00000 

30000 

54422 

00037 

31 

00036 

00000 

54423 

00040 

42 

00112 

00042 

54424 

00041 

45 

00000 

00043 

54425 

00042 

32 

00124 

00000 

54426 

00043 

42 

00113 

00073 

54427 

00044 

42 

00114 

00035 

54430 

00045 

16 

00116 

00061 

54431 

00046 

16 

32000 

00067 

54432 

00047 

15 

00116 

00066 

54433 

00050 

11 

00122 

00121 

54434 

00051 

11 

00117 

00045 

54435 

00052 

21 

00066 

00120 

54436 

00053 

41 

00121 

00061 

54437 

00054 

11 

00061 

00055 

54440 

00055 

11 

00101 

30000 

54441 

00056 

37 

00072 

00065 

54442 

00057 

21 

00036 

00110 

54443 

00060 

45 

00000 

00011 

54444 

00061 

11 

00101 

30000 

54445 

00062 

21 

00061 

00110 

54446 

00063 

21 

00036 

00110 
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MJ 


1 FRAME 


RJ 

EFSTOP+2 

EFSTOP 

LOAD 

RPB 


L+2 

DRUM 

TP 

DRMBUF 

FILL 


EF 


RDPAPR 


TP 

RESET 

SETDRM 


MJ 


FILL 

CORADR 

TV 

A 

TRNSMT 


MJ 


TRNSMT 

EFSTOP 

EF 


STOP 

RD IOA 

ER 


Q 


MJ 


FILL 

ERROR 

EQLS 

30000B) 


DRMBUF 

EQLS 

125B) 


RDPAPR 

B 

100000200000 


WRDASS 




DATMSK 

B 

000000000077 


7LC0DE 




7LMASK 

B 

000000017700 


INSERT 

B 

000000011100 


DATA 

B 

000000010100 


CHECK 

B 

000000010500 


VADV 

B 

1 


STOP 

B 

100000100000 


LSTBUF 

B 

1225 


20K 

B 

20000 


40K 

B 

40000 


ENDCOD 

B 

000000000300 


DRMSAV 


30000B) 

DRMBUF 

BYPASS 

MJ 


BUMPRP 

UADV 

B15 

1 


DBINDX 

B 

1077 


RSTDBI 

B 

1077 


RESET 

TV 

DRMSAV 

TRNSMT 

DC!ADR 



FILL 


SETL 


S 

PPRDUP 

MJ 


L+3 


MS 


MISTAK 
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GET NEXT WORD 
GO TO STOP READER 
TRANSFR DATA WORDS TO 
UNBIASED DRUM STOR ADRS 
START READER AND RESET 
8 LK TNSFR ENTRY SO THAT 
DRM 8 UF CAN BE REFILLED 
SET TRNSMT CMD TO STORE 
DATA WORD IN CORE 
STOP PAPER TAPE READER 
AND READ IOA 


1ST ADDR OF 576 WD BUFFR 
READ PAPER TAPE-FREE RUN 
WORD ASSEMBLY 
DATA LEVELS MASK 
INSTRUCTION CODE 
7TH LEVEL MASK 
INSERT ADDRESS CODE 
DATA ADDRESS CODE 
CHECK ADDRESS CODE 

PAPER TAPE STOP EF 


FI EQ 46553B OR AS SPECI 

PAPER TAPE DUPLICATE RTN 
DUMMY ERROR EXIT 


54447 00064 45 00000 00010 

54450 00065 37 00077 00075 

54451 00066 75 30000 00070 

54452 00067 11 00125 30000 

54453 00070 17 00000 00100 

54454 00071 11 00123 00045 

54455 00072 45 00000 30000 

54456 00073 16 32000 00061 

54457 00074 45 00000 00061 

54460 00075 17 00000 00111 

54461 00076 76 00000 31000 

54462 00077 45 00000 30000 


54463 00100 10 00002 00000 

54464 00101 00 00000 00000 

54465 00102 00 00000 00077 

54466 00103 00 00000 00000 

54467 00104 00 00000 17700 

54470 00105 00 00000 11100 

54471 00106 00 00000 10100 

54472 00107 00 00000 10500 

54473 00110 00 00000 00001 

54474 00111 10 00001 00000 

54475 00112 00 00000 01225 

54476 00113 00 00000 20000 

54477 00114 00 00000 40000 

54500 00115 00 00000 00300 

54501 00116 00 30000 00125 

54502 00117 45 00000 00052 

54503 00120 00 00001 00000 

54504 00121 00 00000 01077 

54505 00122 00 00000 01077 

54506 00123 16 00116 00061 

54507 00124 00 00000 30000 

54510 45 00000 54513 

54511 56 00000 00004 
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MJ 


RESTOR 

PROGLD 

RPB 

50 

PUNCHA 


TP 

PPRDUP 

PUNCHA' 


SETL 


6 

PUNCHA 

RP 

100 

L+2 

LEADER 

PU 


STPCTR 

SETSTR 

TV 

VBUFR 

STOR 


EF 


RDPPR 

READ 

ER 


Q 

STOR 

TP 

Q 

8 UFFER 


RA 

STOR 

VADVDP 


GT 

7LMSK 

A 


ZJ 

L+3 

L+l 


LTR 


STPCTR 


MJ 


FRMCTR 


SP 

STPCTR 



ZJ 

STOPRD 

L+l 


TP 

VADVDP 

STPCTR 

FRMCTR 

IJ 

INDEX 

READ 

STOPRD 

EF 

BUFFER 

TPSTOP 


ER 


Q 


TP 

RSTIND 

INDEX 


RS 

STPCTR 

STPCTR 


TU 

STOPRD 

LOADQ 

LOADQ 

TP 

BUFFER 

Q 


RA 

LOADQ 

UADVDP 


QT 

7LMSK 

A 


ZJ 

L+4 

L+l 


LTR 


STPCTR 


PU 


Q 


MJ 


CTRFRM 


PU1 


Q 


SP 

STPCTR 



ZJ 

STOPCH 

L+l 


TP 

VADVDP 

STPCTR 

CTRFRM 

IJ 

INDEX 

LOADQ 


TP 

RSTIND 

INDEX 


MJ 


SETSTR 


NORMAL EXIT 

TRANSFER PAPER TAPE DU 
5 PLICATE ROUTINE TO CORE 

PUNCH 100 FRAMES OF 
LEADER ON DUPLICATE TAPE 
PRESET STOR COMD 
START PAPER TAPE READER 
READ 1 FRAME 
STORE 1 FRAME 
ADVANCE STORE ADDRESS 
TEST FOR 
7TH LEVEL PUNCH 
CLEAR STOP COUNTER AND 
GO TO TEST FRAME COUNTER 
TEST STOP COUNTER FOR 
7TH LEVEL PUNCH IN PRE¬ 
VIOUS FRAME 

TEST-NR OF FRAMES READ 
STOP PAPER TAPE READER 
AND CLEAR IOA 
RESET FRAME COUNT INDEX 
AND CLEAR A AND STPCTR 
SET LOADQ CMD FOR PUNCH 
LOAD Q WITH 1 FRAME 
ADV LOAD ADDRESS 
TEST FOR 
7TH LEVEL PUNCH 
NO 7TH LEVEL PUNCH SO 
CLEAR STPCTR* PUNCH (36- 
GO AND TEST FRAME COUNTR 
PUNCH 7TH LEVEL AND 06 
GO AND TEST STPCTR FOR 2 
CONSECUTIVE 7TH LEVEL 
PUNCHES 

TEST-NR OF FRAMES PUNCHD 
RESET INDEX AND GO TO 
READ MORE PAPER TAPE. 



54512 

45 

00000 

54356 


54513 

75 

30062 

00006 


54514 

11 

54510 

00001 

54515 

00006 

75 

00144 

00010 

54516 

00007 

63 

00000 

00060 

54517 

00010 

16 

00062 

00013 

54520 

00011 

17 

00000 

00052 

54521 

00012 

76 

00000 

31000 

54522 

00013 

11 

31000 

00067 

54523 

00014 

21 

00013 

00053 

54524 

00015 

51 

00057 

32000 

54525 

00016 

47 

00021 

00017 

54526 

00017 

22 

10000 

00060 

54527 

00020 

45 

00000 

00024 

54530 

00021 

31 

00060 

00000 

54531 

00022 

47 

00025 

00023 

54532 

00023 

11 

00053 

00060 

54533 

00024 

41 

00055 

00012 

54534- 00025 

17 

00067 

00061 

54535 

00026 

76 

00000 

31000 

54536 

00027 

11 

00056 

C-0Q55 

5453? 

00030 

23 

00060 

00060 

54540 

00031 

15 

00025 

00032 

54541 

00032 

11 

00067 

31000 

54542 

00033 

21 

00032 

00054 

54543 

00034 

51 

00057 

32000 

54544 

00035 

4? 

00041 

00036 

54545 

00036 

22 

10000 

00060 

54546 

00037 

63 

QOOOO 

31000 

54547 

00040 

45 

00000 

00045 

54550 

00041 

63 

10000 

31000 

54551 

00042 

31 

00060 

00000 

54552 

00043 

47 

00050 

00044 

54553 

00044 

11 

00053 

00060 

54554 

00045 

41 

00055 

00032 

54555 

00046 

11 

00056 

00055 

54556 

00047 

45 

00000 

00010 
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STOPCH 

MISTAK 

BUFFER 

RDPPR 

VADVDP 

UADVDP 

INDEX 

RSTIND 

7LMSK 

STPCTR 

TPSTOP 

VBUFR 

PPRPCH 


SETDCI 


TSTADR 


RP 

60 

PPRDUP+2 

PU 


READ 

EQLS 

4 


EQLS 

67B) 


B 

100000200000 


B 

1 


B15 

1 


B 

7700 


B 

7700 


B 

000000000100 


B 

100000100000 

BUFFER 

SETL 


S 

MJ 


L+3 

MJ 


GOOF 

MJ 


RESTOR 

RPB 

54 

SETDCI 

TP 

PPRPCH 

SETDCI-5 

SETL 


6 

TU 

RESTF1 

DRCRIM 

TU 

Q 

ADDR 

IJ 

Q 

L+l 

TV 

Q 

PCHIND 

RPU 

101 

L+2 

PU 

47634B} 

BLANK 

RPU 

3. 

L+2 

PU 

47776B ) 

BLANK 

LQ 

ADDR 

A+9 

PU 


Q 

LQ 

Q 

6 

PU 


Q 

LQ 

Q 

6 

PU1 


Q 

SP 

ADDR 


TJ 

endcor 

L+2 

TJ 

BEGDRM 

PPRPCH+1 

TJ 

ENDCI 

ADBIAS 


MOVE TAPE PAST PUNCH 
HEAD AND EXIT 


4032 DEC-DIV BY 6 EQ 672 


ENTRY-PAPER TAPE PUNCH 
ERROR EXIT 
NORMAL EXIT 
TRANSFER PAPER TAPE 
PUNCH ROUTINE TO CORE 

SET (DRCRIM) EQ DCI+3 
EXTRACT FIRST WORD ADDR 
EXTRACT NR WDS TO BE 
PUNCHED AND SET INDEX 
PUNCH 100 FRAMES 
OF LEADER AND 1 7L 
PCH FRMS 1 2 3 (7L) 
OF INSERT ADDRESS 

PUNCH FRAME 4 

PUNCH FRAME 5 

PUNCH FRAME 6 7L 
ADDR TO U OF AR 
20000 GT ADDR-YES-CORE 
40000 GT ADDR-YES-ILLEGL 
1225 GT ADDR-YES-ADD DCI 


54557 

00050 

75 

00074 

54512 

54560 

00051 

63 

00000 

00012 


54561 

00052 

10 

00002 

00000 

54562 

00053 

00 

00000 

00001 

54563 

00054 

00 

00001 

00000 

54564 

00055 

00 

00000 

07700 

54565 

00056 

00 

00000 

07700 

54566 

00057 

00 

00000 

00100 

545 67 

00060 

00 

00000 

00000 

54570 

00061 

10 

00001 

00000 

54571 

00062 

00 

00000 

00067 


54572 

45 

00000 

54575 


54573 

45 

00000 

00004 


54574 

45 

00000 

54356 


54575 

75 

30066 

00006 


54576 

11 

54572 

00001 

54577 

00006 

15 

54360 

00063 

54600 

00007 

15 

31000 

00057 

54601 

00010 

41 

31000 

00011 

54602 

00011 

16 

31000 

00056 

54603 

00012 

75 

20145 

00014 

54604 

00013 

63 

47634 

00024 

54605 

00014 

75 

20003 

00016 

54606 

00015 

63 

47776 

00024 

54607 

00016 

55 

00057 

32011 

54610 

00017 

63 

00000 

31000 

54611 

00020 

55 

31000 

00006 

54612 

00021 

63 

00000 

31000 

54613 

00022 

55 

31000 

00006 

54614 

00023 

63 

10000 

31000 

54615 

00024 

31 

00057 

00000 

54616 

00025 

42 

00061 

00027 

54617 

00026 

42 

00062 

54573 

54620 

00027 

42 

00060 

00054 



PAPER TAPE PACKAGE 


SETADR 

TU 

A 

L+l 


LQ 

FILL 

Q+6 


TP 

RSTFRI 

FRMIND 


PU 


Q 


LQ 

Q 

6 


IJ 

FRMIND 

L—2 


PU1 


Q 


RA 

ADDR 

1U 


IJ 

PCHIND 

TSTADR 


RP 

3 

L+2 


PU 


BLANK 


LQ 

ADDR 

Q+9 


PU1 


Q 


LQ 

Q 

6 


PU 


Q 


LQ 

Q 

6 


PU1 


Q 


MJ1 


PPRPCH+2 


RPU 

8 

PPRPCH+2 


PU 

47772B) 

BLANK 

ADBIAS 

SA 

DRCRIM 



MJ 


SETADR 

GOOF 

EQLS 

4B1 


PCHIND 



FILL 

BLANK 

EQLS 

TSTADR 


ADDR 


FILL 


ENDCI 


1225B5 


ENDCOR 


20000BJ 


BEGDRM 


40000B5 


DRCRIM 


DC I+3 


FRMIND 

B 

4 


RSTFRI 

B 

4 


1U 


1 



END 
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TRANSFER DATA WORD CO¬ 
RRESPONDING TO ADDR TO 
Q AND PRESET FRMIND 

PUNCH FRAMES 1-5 
OF DATA WORD 

PCH FR 6 OF DATAWD 
ADV ADDR BY 1 
TEST-PUNCHD REQD NR WDS 
C PUNCH 1ST 3 

H FRAMES OF CHK ADDR 

E 

C PUNCH FRAME 4 {7L) 
A K 

D PUNCH FRAME 5 

D 

R PUNCH FRAME 6 (7L) 

OPT ION—OMIT STOP CODE 

PUNCH 6 BLANK FRMS 
AND END CODE 2(71) 
ADDR + LOC FI IN DC! 


LST COR ADDR OF DC! + 1 
LST LEGAL CORE ADDR + 1 
1ST LEGAL DRUM ADDR 
/R AS SPEC IN (A) I 


54621 

00030 

15 

32CC0 

00031 

54622 

00031 

55 

30000 

3100 6 

54623 

00032 

11 

00065 

0006-r 

54624 

00033 

63 

oocoo 

31000 

54625 

00034 

55 

31000 

00006 

546 2 6 

00035 

41 

00064 

00033 

54627 

00036 

63 

10000 

31000 

54630 

00037 

21 

00057 

00066 

54631 

00040 

41 

00056 

00024 

54632 

00041 

75 

00003 

00043 

54633 

00042 

63 

00000 

00024 

54634 

00043 

55 

00057 

31011 

54635 

00044 

63 

10000 

31000 

54636 

00045 

55 

31000 

00005 

54637 

00046 

63 

00000 

31000 

54640 

00047 

55 

31000 

00006 

54641 

00050 

63 

10000 

31000 

54642 

00051 

45 

10000 

54574 

54643 

00052 

75 

20010 

54574 

54644 

00053 

63 

47T72 

00024 

54645 

00054 

32 

00063 

oooco 

54646 

00055 

45 

00000 

0003 0 

54647 

Q0056 

00 

00000 

30000 

54650 

00057 

00 

30000 

00000 

54651 

00060 

00 

01225 

00000 

54652 

00061 

00 

20000 

00000 

54653 

00062 

00 

40000 

00000 

54654 

00063 

00 

41773 

00000 

54655 

00064 

00 

00000 

00004 

54656 

00065 

00 

00000 

00004 

54657 

00066 

00 

00001 

00000 



1103AF-0PS-00001S 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTION: 

CODE: 

STOPS: 


PREPARE SERVICE LIBRARY 

Prepare a service library on designated uniservo. 

1. Load all required service routines. 

2. Set PAK * U0017. 

3. Set Q 3 - Q 0 = uniservo number of output tape, 
iu Depress start button. 

17. 

PAK = I 4 .OOOO, Success stop. 

As many libraries may be made as desired by repeating 
steps 2 , 3 , and U. 


COMMENTS: 
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SETL 

52200BS 

52200B) 

MAKE 

RPB 

300 

CELL1 


TP 

L+l 

CELL1 


SETL 


1 


SP 

G 

12 


AT 

WRITE 

WRITE 


AT 

REWIND 

REWIND 

TP 

TP 

UMASK 

Q 

GT 

GT 

LOAD+2 

NN1 


•ZJ 

NONZED 

BUMP 

BUMP 

RA 

GT 

FOURU 


IJ 

INDEX! 

TP 


M.J 


DRIVER 

NONZED 

AT 

DUMMY 

SUM 


SP 

NN1 



DV 

MOST 

Q 


ZJ 

L + l 

L+2 


SP 

LL1 



AT 

Q 

NN2 


SP 

A 

30 


AT 

NN1 

NN1 


TV 

MV 

NN1 


RA 

MV 

NN2 


LO 

QT 

A+21 


TV 

A 

L+l 


TP 

NN1 



SA 

LL1 



TV 

A 

SUM+2 


SS 

LL2 

15 


TU 

A 

L + l 


TU 


SUM+1 


RS 

A 

A 

SUM 

RPU 


SUM+2 


SA 




TP 

A 



MJ 


BUMP 

DRIVER 

EF 


WRITE 


RPV 

120 

L+2 
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THE PREPARE SERVICE 
LIBRARY ROUTINE WILL 
PREPARE A LIBRARY ON 
ANY UNISERVO SPECIFIED 
IN THE LOW ORDER POSI¬ 
TION OF THE Q-REGISTER. 

THIS SECTION COMPUTES 
THE CHECKSUM OF EACH 
ROUTINE TO BE WRITTEN 
ON THE LIBRARY. TO DO 
THIS IT USES THE PARA¬ 
METER WORDS DESCRIBED 
IN THE OPERATIONS PACK 
AGE. AFTER EACH CHECK¬ 
SUM IS COMPUTED* IT IS 
STORED BACK IN WORD 4 
OF THE PARAMETER SET. 

TO MAKE THE SELECTIVE 
RESTORE FUNCTION* THIS 
ROUTINE COMPUTES A MOVE 
COUNT WHICH IS STORED 
IN PARAMETER WORD 3 OF 
EACH PARAMETER SET. 

THIS MOVE COUNT UN OP 
OF WORD 3) TELLS THE 
EXECUTIVE ROUTINE HOW 
MANY BLOCKS TO MOVE THE 
LIBRARY TO POSITION THE 
DESIRED ROUTINE FOR 
READING. 

THIS ROUTINE SKIPS ALL 
DRUMSTARTS WHICH HAS 
A WORD 3 OF ZERO. THIS 
INDICATES THAT THERE 
ARE ZERO WORDS TO BE 
CHECKSUMMED. 

THIS ROUTINE WRITES 



52200 

75 

30454 

00001 


52201 

11 

52202 

00001 

52202 

00001 

31 

31000 

00014 

52203 

00002 

35 

00160 

00160 

52204 

00003 

35 

00161 

00161 

52205 

00004 

11 

00176 

31000 

52206 

00005 

51 

40060 

06000 

52207 

00006 

47 

00012 

00007 

52210 

00007 

21 

00005 

00206 

52211 

00010 

41 

00166 

00004 

52212 

00011 

45 

00000 

00041 

52213 

00012 

35 

00172 

0003 5 

52214 

00013 

31 

06000 

00000 

52215 

00014 

73 

00170 

31000 

52216 

00015 

47 

00016 

00017 

52217 

00016 

31 

00164 

00000 

52220 

00017 

35 

31000 

06001 

52221 

00020 

31 

32000 

0003 6 

52222 

00021 

35 

06000 

06000 

52223 

00022 

16 

00171 

06000 

52224 

00023 

21 

00171 

06001 

52225 

00024 

55 

00005 

32025 

52226 

00025 

16 

32000 

00026 

52227 

00026 

11 

06000 

00000 

52230 

00027 

32 

00164 

00000 

52231 

00030 

16 

32000 

00037 

52232 

00031 

34 

00165 

00017 

52233 

00032 

15 

32000 

00033 

52234 

00033 

15 

00000 

00036 

52235 

00034 

23 

32000 

32000 

52236 

00035 

75 

20000 

00037 

52237 

00036 

32 

00000 

00000 

52240 

00037 

11 

32000 

00000 

52241 

00040 

45 

00000 

00007 

52242 

00041 

17 

00000 

00160 

52243 

00042 

75 

10170 

00044 
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THE DRIVER BLOCK ON THE 
NEW LIBRARY. 

THIS ROUTINE WRITES 
THE ENTIRE CONTENTS OF 
DRUMS FOUR (4) AND FIVE 
(5) ON THE LIBRARY 
TAPE. THIS IS ACCOMPL 
I SHED BY BRINGING DRUM 
FOUR INTO SECOND CORE 
AND THEN RECORDING TWO 
VARIABLE BLOCKS OF 2048 
WORDS EACH. THE PROCESS 
IS THEN REPEATED FOR 
DRUM FIVE* EACH BLOCK 
IS PRECEDED BY THREE 
CONTROL WORDS. THESE 
ARE* 

1 INSERT ADDRESS. 

2 NUMBER OF WORDS* 

3 CHECKSUM OF THE 

BLOCK. 


THIS ROUTINE OPERATES ON 
EACH SERVICE ROUTINE IN 
TURN* EACH ONE IS 
WRITTEN ON THE LIBRARY 
TAPE IN A SEQUENCE OF 
500 WORD BLOCKS (VAR¬ 
IABLE BLOCK MODE). THIS 
PERMITS CORE TO BE PRE 
SERVED DURING A SELEC¬ 
TIVE RESTORE* SINCE 
THERE IS A 500 WORD 
BUFFER AVAILABLE IN THE 


52244 00043 77 10000 00210 

52245 00044 17 00000 00162 

52246 00045 75 37777 00047 

52247 00046 11 40000 10000 

52250 00047 11 47777 17777 

52251 00050 23 32000 32000 

52252 00051 75 24000 00053 

52253 00052 32 10000 00000 

52254 00053 17 00000 00160 

52255 00054 77 10000 00173 

52256 00055 77 10000 00174 

52257 00056 77 10000 32000 

52260 00057 55 00052 32025 

52261 00060 16 32000 00062 

52262 00061 75 14000 00063 

52263 00062 77 10000 30000 

52264 00063 17 00000 00162 

52265 00064 21 00052 00174 

52266 00065 21 00173 00174 

52267 00066 41 00175 00050 

52270 00067 37 00067 00070 

52271 00070 21 00046 00204 

52272 00071 21 00047 00204 

52273 00072 15 00146 00052 

52274 00073 11 00164 00175 

52275 00074 37 00067 00045 

52276 00075 75 30003 00077 

52277 00076 11 40057 06002 

52300 00077 15 00163 00123 

52301 00100 11 06002 32000 

52302 00101 47 00102 00126 

52303 00102 15 32000 00107 

52304 00103 11 06003 31000 

52305 00104 51 00176 06000 

52306 00105 35 00177 00106 

52307 00106 75 30000 00110 

52310 00107 11 30000 10000 

52311 00110 31 06000 00000 
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BUMP4 


TST 

1BL0CK 


ADD 


OUT 


TJ 

501U 

TST 

ST 

500U 

NN1 

RA 

Z+l 

H 

SP 

500U 


TU 

A 

Z + l 

RJ 

EX 

1BL0CK 

RS 

Z + l 

H 

RA 

Z 

500U 

TU 

NN1 

Z + l 

RPB 

500 

L+2 

TP 

CORE2+500 

C0RE2 

RA 

L—1 

500U 

MJ 


SP 

RA 

P 

FOURU 

IJ 

INDEX2 

NEXT 

EF 


WRITE 

RP 

120 

L+2 

EW1 

- 

EOF 

EF 


STOP 

EF 


REWIND 

MJ 


40034) B 

TJ 

20U 

L+2 

MJ 


1BL0CK 

SP 

20U 


AT 

D2 

OUT 

SA 

J0F1 


TU 

A 

ADD 

RS 

A 

A 

RPU 


ADD+2 

SA 

C0RE2 


EF 


WRITE 

EW1 


Z 

EW1 


Z + l 

EW1 


A 

RPV 


OUT+2 

EW1 


C0RE2 

EF 


STOP 

RJ 

L 

L+l 


DRUM-CORE IMAGE ON 
DRUM* 

AS MENTIONED ABOVE♦ 
EACH BLOCK IS PRECEDED 
BY THREE CONTROL WORDS 
WHICH INSTRUCT THE EXE 
CUTIVE ROUTINE HOW TO 
LOAD THE SERVICE ROUT¬ 
INE* IF THE SECOND 
CONTROL WORD IS NEGA¬ 
TIVE* THIS INDICATES 
THERE IS AT LEAST ONE 
MORE BLOCK TO BE LOADED 
BEFORE THE ROUTINE IN 
QUESTION IS COMPLETELY 
LOADED. TO AVOID POSS 
IBLE TAPE TROUBLE* NO 
BLOCKS SMALLER THAN 20 
WORDS ARE WRITTEN. 
ALTHOUGH ALL 20 WORDS 
ARE CHECKSUMMED FOR THE 
READ TEST* ONLY THE 
EXACT NUMBER OF WORDS 
THAT BELONG TO THE 
SERVICE ROUTINE ARE 
TRANSFERRED TO DRUM. 

WHEN ALL SERVICE 
ROUTINES HAVE BEEN 
WRITTEN ON THE TAPE* 

A BLOCK (120 WORDS) OF 
PRINTER STOPS (60 IN 
XS3) IS WRITTEN ON THE 
TAPE. IT IS THEN RE¬ 
WOUND AND THE SUCCESS 
STOP IS AN MSO WITH 
PAK EQUAL TO 40000. 


52312 00111 42 00202 00136 

52313 00112 36 00201 06000 

52314 00113 21 06003 00205 

52315 00114 31 00201 00000 

52316 00115 15 32000 06003 

52317 00116 37 00156 00141 

52320 00117 23 06003 00205 

52321 00120 21 06002 00201 

52322 00121 15 06000 06003 

52323 00122 75 30764 00124 

52324 00123 11 10764 10000 

52325 00124 21 00123 00201 

52326 00125 45 00000 00110 

52327 00126 21 00076 00206 

52330 00127 41 00167 00075 

52331 00130 17 00000 00160 

52332 00131 75 00170 00133 

52333 00132 77 10000 00207 

52334 00133 17 00000 00162 

52335 00134 17 00000 00161 

52336 00135 45 00000 40034 

52337 00136 42 00203 00140 

52340 00137 45 00000 00141 

52341 00140 31 00203 00000 

52342 00141 35 00200 00153 

52343 00142 32 00204 00000 

52344 00143 15 32000 00145 

52345 00144 23 32000 32000 

52346 00145 75 20000 00147 

52347 00146 32 10000 00000 

52350 00147 17 00000 00160 

52351 00150 77 10000 06002 

52352 00151 77 10000 06003 

52353 00152 77 10000 32000 

52354 00153 75 10000 00155 

52355 00154 77 10000 10000 

52356 00155 17 00000 00162 

52357 00156 37 00156 00157 


EX 


SINCE SPACE LIMITATIONS 
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MJ 


BUMP4 

WRITE 

B 

020006600000 


REWIND 

B 

000011200000 


STOP 

B 

020060000000 


C2500 


CQRE2+50Q 


LL1 



1 

LL2 



2 

INDEX1 

• 


25 

INDEX2 



25 

MOST 


500 


MV 



4 

DUMMY 

RPU 


SUM+2 

OPS 


DRUMST 

DRUMST 



2048 


12 



1 

UMASK 

B15 

77777 


D1 

RPB 


FETCH+2 

D2 

RPV 


OUT+2 

500U 


500 


501U 


501 


20U 


20 


JO FI 

B 

001000000000 


H 

B33 

4 


FOURU 


4 


EOF 

B 

606060606060 


ZERO 

MJ 


CELL1 


SETL 


1 


TP 

Q 

TEMP 


ZJ 

L+l 

ALL 


ss 

L2 



MP 

A 

L4 


SA 

K2 

15 


TU 

A 

L + l 


TP 


Q 


QT 

VMASK 

A 


AT 

EFMOVE 

EFMOVE 

XX 

SP 

TEMP 

12 


ZJ 

L+2 

L + l 
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REQUIRE THAT THE AUTO¬ 
MONITOR (BOSS) OCCUPY 
DCI (DRUM-CORE IMAGE)* 
THE PREPARE LIBRARY 
ROUTINE IS NOT CHECK- 
SUMMED BY THE EXECUTIVE 
ROUTINE. THEREFORE* TO 
PREPARE A NEW LIBRARY* 
THE CURRENT LIBRARY 
SHOULD BE READ INTO 
MEMORY* ANY CHANGES 
KEYED IN* THEN THE 
40017 DRUMSTART USED. 

IF CHANGES ARE READ IN 
BY USING OCTAL CARDS 
(40020) OR SLAP TAPES 
(40011)* BOSS MUST BE 
RESTORED BEFORE USING 
THE 40017 DRUMSTART. IF 
BOSS IS NOT DESIRED* 
THIS PRECAUTION NEED 
NOT BE TAKEN. 


THE REST OF THE CODING 
THAT FOLLOWS IS THE 
DRIVER BLOCK THAT IS 
WRITTEN AT THE BEGIN¬ 
NING OF EACH NEW LIB¬ 
RARY, IT IS COMPLETELY 
SELF-CONTAINED AND 
MAKES ALL TESTS TO DE¬ 
CIDE WHETHER A NORMAL 
OR SELECTIVE RESTORE 
IS REQUIRED. THE SEL¬ 
ECTIVE RESTORE* HOW¬ 
EVER* ASSUMES THAT THE 
OPERATIONS PACKAGE IS 


52360 00157 45 00000 00126 

52361 00160 02 00066 00000 

52362 00161 00 00112 00000 

52363 00162 02 00600 00000 

52364 00163 00 10764 00000 

52365 00164 00 00000 00001 

52366 00165 00 00000 00002 

52367 00166 00 00000 00031 

52370 00167 00 00000 00031 

52371 00170 00 00764 00000 

52372 00171 00 00000 00004 

52373 00172 75 20000 00037 

52374 00173 00 40000 40000 

52375 00174 00 04000 00000 

52376 00175 00 00000 00001 

52377 00176 00 77777 00000 

52400 00177 75 30000 00110 

52401 00200 75 10000 00155 

52402 00201 00 00764 00000 

52403 00202 00 00765 00000 

52404 00203 00 00024 00000 

52405 00204 00 10000 00000 

52406 00205 40 00000 00000 

52407 00206 00 00004 00000 

52410 00207 60 60606 06060 

52411 00210 45 00000 00001 

52412 00001 11 31000 00143 

52413 00002 47 00003 00065 

52414 00003 34 00117 00000 

52415 00004 71 32000 00121 

52416 00005 32 00134 00017 

52417 00006 15 32000 00007 

52420 00007 11 00000 31000 

52421 00010 51 00122 32000 

52422 00011 35 00125 00125 

52423 00012 31 00143 00014 

52424 00013 47 00015 00014 



SET 

IOA 

ER1 

ENDBLK 

SJ 

ATA 

TOTAL 

TODRUM 

SS 
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SP 

LI 

12 

TP 

MASKMT 

0 

RPV 

4 

L+2 

OS 

A 

EFMOVE 

EF 


EFMOVE 

TP 

L2 

TWO 

EF 


NORMAL 

TV ■ 

1 

ERl 

EF 


READ 

ER 


A 

EJ 

LI 

PARITY 

EJ 

L2 

ENDBLK 

EJ 

L3 

MOD 6 

EJ 

L4 

ENDBLK+1 

ER1 


TEMP 

RA 

L—1 

LI 

MJ 


IOA 

EF 


HALT 

RJ 

L 

L + l 

LO 

TEMP 

A+21 

TV 

Q 

TODRUM+1 

TP 

TEMP+1 

0 

OT 

MASKU 

TEMP 

AT 

RPT 

TODRUM 

SP 

TEMP 


TJ 

C20U 

L+2 

MJ 


ATA 

SP 

C20U 


AT 

ADDER 

TOTAL 

RS 

A 

A 

RPU 


L+2 

SA 

TEMP+3 


TP 

A 

A 

EJ 

TEMP+2 

L+2 

MS 


2 

RPB 


L + 2 

TP 

TEMP+3 

FILL 

RJ 

L 

L + l 
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INTACT ON THE 4 DRUM• 
THIS IS NECESSARY» OF 
COURSE» BECAUSE THE 
MOVE COUNT IS STORED IN 
THE PARAMETER SETS 
STORED THERE. THE NOR 
MAL RESTORE MAKES NO 
SUCH ASSUMPTION. IT 
MERELY RESTORES THE 
ENTIRE FOUR AND FIVE 
DRUMS♦ MAKING NO ATT¬ 
EMPT TO PRESERVE CORE. 

ALL READING IS DONE IN 
THE VARIABLE BLOCK 
MODE. IN CASE OF A PAR 
ITY ERROR, THE BLOCK IN 
WHICH THE ERROR OCCUPI¬ 
ED IS COMPLETELY READ 
BEFORE THE TAPE IS 
BACKSPACED FOR REREAD¬ 
ING. THIS IS A NECESS¬ 
ARY PRECAUTION SINCE 
THE COMBINATION OF AN 
END OF BLOCK GAP AND 
A LINE COUNT OF THREE 
GIVES A FALSE BAD SPOT 
INDICATION. ONCE THE 
TAPE IS BACKSPACED» IT 
IS REREAD WITH HIGH 
BIAS. IF THE PARITY 
CONTINUES TO FAIL♦ BIAS 
IS CHANGED TO LOW, THEN 
NORMAL* THEN HIGH AGAIN 
AND SO ON INDEFINITELY. 

A MOD6 ERROR IS HANDLED 
EXACTLY THE SAME AS A 
PARITY ERROR * EXCEPT 


5 2 42 5 

00014 

31 

00116 

00014 

52426 

00015 

11 

00124 

3 10 C 0 

52427 

00016 

75 

10004 

0002 0 

52430 

00017 

53 

32000 

0012 5 

52431 

00020 

17 

00000 

00125 

52432 

00021 

11 

00117 

00142 

52433 

00022 

17 

00000 

00132 

52434 

00023 

16 

00001 

00 032 

52435 

00024 

17 

00000 

00126 

52436 

00025 

76 

00000 

32000 

52437 

00026 

43 

00116 

00103 

52440 

00027 

43 

00117 

0003 5 

52441 

00030 

43 

00120 

00114 

52442 

00031 

43 

00121 

0 0 0 3 6 

52443 

00032 

76 

10000 

00143 

52444 

00033 

21 

00032 

00116 

52445 

00034 

45 

00000 

00025 

52446 

00035 

17 

00000 

00131 

52447 

00036 

37 

00036 

00037 

52450 

00037 

55 

00143 

3 2 025 

52451 

00040 

16 

31000 

00060 

52452 

00041 

11 

00144 

31000 

52453 

00042 

51 

00123 

00143 

52454 

00043 

35 

00135 

0 0 0 5 7 

52455 

00044 

31 

00143 

0000 0 

52456 

00045 

42 

00137 

00047 

52457 

00046 

45 

coooo 

0 r. t; r> 

52460 

00047 

31 

00137 

G 0 0 0 0 

52461 

00050 

•J. K 

-> J 

00136 

00052 

52462 

00051 

23 

3 2 0 0 0 

'D 07 C'< fj 

52463 

00052 

75 

2 CQOC 

C 0 0 5 4 

52464 

00053 

3 2 

C 014 6 

C C 0 0 0 

52465 

00054 

11 

3 2 0 0 0 

2 p r. q 2 

52466 

000 5 5 


00143 

0 0 0 3 7 

5 2 4 67 

00056 

5 6 

0 0 000 

0 G 0 0 2 

o',7n 

00057 

75 

a r, n 

rv f- / 0 

52471 

00060 

11 

0014& 

■/ n r- o ( "■ 

5 2 472 

00061 

^ "7 

00061 

C 0 0 6 2 
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QJ 

SET 

L + l 


EF 


REWND 


MJ 


RESTOR 

ALL 

TV 

K3 

CELL1 


TU 

K3 

TODRUM+1 


TU 

K3 

TOTAL+1 


TP 

L2 

ONE 


RJ 

SJ 

XX 

V 

RPB 

3 

L+2 


TP 

CORE? 

TEMP 

DU 

RJ 

L 

L+l 


RJ 

SS 

SJ+1 


RJ 

SJ 

SET 


RJ 

DU 

V 


RJ 

SS 

SJ+1 


IJ 

ONE 

L-3 


MJ 


SS+2 

PARITY 

ER1 


A 


EF 


HALT 


IJ 

TWO 

L+2 


TP 

L2 

TWO 


LA 

A 

12 


AT 

EFL 

TEMP 


EF 


TEMP 


EF 


BACK 


MJ 


IOA-2 

MOD6 

EF 


HALT 


MJ 


PARITY+2 

LI 



1 

L2 



2 

L3 



3 

L4 



4 

VMASK 

B 

77777 


MASKU 

B15 

77777 


MASKMT 

B12 

17 


EFMOVE 

B 

020006400000 


READ 

B 

020006200000 


BACK 

B 

020007400001 



PAGE 6 OF 7 


THAT READING THE REST 
OF THE BLOCK IS UNNEC¬ 
ESSARY SINCE A MODS 
ERROR CAN ONLY OCCUR AT 
THE END OF A BLOCK. AN 
END OF TAPE SIGNAL IS 
TREATED THE SAME AS AN 
END OF BLOCK SIGNAL. 
EXCEPT THAT THE STOP 
TAPE EF IS SKIPPED. 

AS MENTIONED BEFORE. 
EACH BLOCK ON THE TAPE 
HAS ITS OWN CHECKSUM* 
AFTER EACH BLOCK IS 
READ INTO CORE. ITS SUM 
IS RECOMPUTED AND COM¬ 
PARED TO THE SUM ON 
TAPE. IF THEY COMPARE. 
THE CORE TO DRUM TRANS 
FER TAKES PLACE. IF THE 
TWO SUMS DO NOT COMPARE 
THE ROUTINE COMES TO AN 
MSO STOP WITH PAK EQUAL 
TO 00002. THE ONLY 
RECOVERY IS TO REWIND 
THE TAPE AND ATTEMPT A 
REREADING. 

THE NORMAL EXIT OF THIS 
ROUTINE IS THROUGH THE 
RESTORE ROUTINE IN THE 
OPERATIONS PACKAGE. 

THIS ACCOMPLISHES NOTH 
ING IF AN ABNORMAL DRUM 
COLD START IS USED* 
HOWEVER. IF THE NORMAL 
DRUM 40000 START IS 


52473 00062 44 00021 00063 

52474 00063 17 00000 00130 

52475 00064 45 00000 40046 

52476 00065 16 00140 00001 

52477 00066 15 00140 00060 

52500 00067 15 00140 00053 

52501 00070 11 00117 00141 

52502 00071 37 00036 00012 

52503 00072 75 30003 00074 

52504 00073 11 10000 00143 

52505 00074 37 00074 00075 

52506 00075 37 00061 00037 

52507 00076 37 00036 00021 

52510 00077 37 00074 00072 

52511 00100 37 00061 00037 

52512 00101 41 00141 00076 

52513 00102 45 00000 00063 

52514 00103 76 10000 32000 

52515 00104 17 00000 00131 

52516 00105 41 00142 00107 

52517 00106 11 00117 00142 

52520 00107 54 32000 00014 

52521 00110 35 00133 00143 

52522 00111 17 00000 00143 

52523 00112 17 00000 00127 

52524 00113 45 00000 00023 

52525 00114 17 00000 00131 

52526 00115 45 00000 00105 

52527 00116 00 00000 00001 

52530 00117 00 00000 00002 

52531 00120 00 00000 00003 

52532 00121 00 00000 00004 

52533 00122 00 00000 77777 

52534 00123 00 77777 00000 

52535 00124 00 00001 70000 

52536 00125 02 00064 00000 

52537 00126 02 00062 00000 

52540 00127 02 00074 00001 
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REWND 

8 

020020000000 


HALT 

B 

020060000000 


NORMAL 

B 

020000150000 


EFL 

B 

020000160000 


K2 



LOAD+2 

RPT 

RPB 


T ODRUM+2 

ADDER 

C20U 

RPU 

20 

TOTAL+2 

K3 


CORE2+3 

CORE2 

ONE 

RSRV 
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TWO 

RSRV 


1 

TEMP 

RSRV 


400 


SETL 

06000)6 

06000)6 

NN1 

RSRV 


1 

NN2 

RSRV 


1 

Z 

RSRV 


3 

CORE2 

EQLS 

10000 )B 


DC 1 

EQLS 

41770B) 


BUFFER 

EQLS 

EOF+1 


CELL1 

EQLS 

1 


CELLO 

EQLS 



LOAD 

EQLS 

40056B5 


DRUMST 

EQLS 

40000B) 


RESTOR 

EQLS 

END 

40046B) 
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USED * A »Q» FI, AND THE 
FIRST 660 CELLS OF CORE 
ARE SAVED IN THE DRUM- 
CORE IMAGE. THEREFORE, 
EXITING THRU THE 
RESTORE ROUTINE IN EFF 
ECT RESTORES CORE. THIS 
IS HOW THE SELECTIVE 
RESTORE ACCOMPLISHES 
PRESERVING CORE. 

IN ORDER FOR THIS 
ROUTINE TO TAKE CONTROL 
IT IS ONLY NECESSARY 
TO READ 120 WORDS INTO 
CONSECUTIVE CELLS 
STARTING AT CELL ZERO- 
THEN TRANSFER CONTROL 
TO CELL ZERO. THE Q- 
REGISTER SHOULD CONTAIN 
THE NUMBER OF THE DES¬ 
IRED UNISERVO BEFORE 
CONTROL IS TRANSFERRED 
TO CELL ZERO. 


52541 00130 02 00200 00000 

52542 00131 02 00600 00000 

52543 00132 02 00001 50000 

52544 00133 02 00001 60000 

52545 00134 00 00000 40060 

52546 00135 75 30000 00061 

52547 00136 75 20000 00054 

52550 00137 00 00024 00000 

52551 00140 00 10003 10000 



1103AF-0PS-OOOOIS 


NAME: 

FUNCTION: 

OPERATING 
INSTRUCTIONS: 

CODE: 

STOPS: 

COMMENTS: 


FOUR FIELD OCTAL CARD LOADER. 

To load information into memory as specified on octal 
cards (format described below). 

1. Clear Console. 

2. Set PAK * 1*0020. 

3. Put cards in read hopper, cycle 1 card. 

1*. Depress start button. 

20 . 


PAK = 1*0000, Success stop. 


The card format is as follows: 
Columns 1-5 Location of Word 1 


6-17 

Word 1 

18-22 

Location of Word 2 

23-31* 

Word 2 

35-39 

Location of Word 3 

1*0-51 

Word 3 

52-56 

Location of Word 1* 

57-68 

Word k 


Loading is terminated by a JL2(+) punch in column 80 of 
the last card to be read. A location of 00000 is ignored. 
Blank columns are read as zeros. Core is preserved. Cards 
can be read under program control as follows.: 

1. Cards positioned in read hopper. 

2. R,J 1*0031* 1*0020. 



START 


READ 


SAD 


CONV 


FOUR FIELD OCTAL CARD LOADER 


SETL 

41530B ) 

415303) 

RPB 

127 

L + 2 

TP 

1 

DC I + 1 

RPB 

127 

START 

TP 

L + l 

1 

SETL 


1 

EF 


RDCARD 

RPV 

4 

L+2 

TV 

QV 

Cl 

RPV 

6 

L+2 

TP 

LO 

T 

TP 

L12 

X4 

TU 

QV 

SAD 

ER 


T+6 

ER1 


T+7 

ER1 


T+8 

TU 

TRES 

TAG+2 

TU 

TRES 

TAG+5 

TP 

T+7 

T+6 

TP 

L9 

T+9 

RJ 

TAGE 

TAG 

TP 

T+8 

T+6 

RJ 

TAGE 

TAG 

RA 

SAD 

B15 

IJ 

X4 

READ 

SP 

T 

15 

TP 

A 

Q 

LT 


A 

ZJ 

L+l 

R 

TJ 

200BB 

L+2 

MJ 


L+2 

SA 

DCIADD 


TV 

A 

Cl 

SP 

Q 

21 

SA 

T+l 

15 

LT 


T+10 

SP 

A 

15 

TP 

A 

Q 
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THIS ROUTINE ACCEPTS 
OCTAL CARDS PUNCHED IN 
THE FOLLOWING FORMAT 
COLS 1-5. ADDRESS OF WORD 
COLS 6-17 WORD 
COLS 18-22 ADDRESS OF WD 
COLS 23-34 WORD 
COLS 35-39 ADDRESS OF WD 
COLS 40-51 WORD 
COLS 52-56 ADDRESS OF WD 
COLS 57-68 WORD 
ADDRESSES MAY BE EITHER 
DRUM OR CORE EXCEPT 
41770 TO 43770 INCL* 

WORDS HAVING A BLANK OR 
ZERO ADDRESS WILL BE 
IGNORED 

A 12 PUNCH IN COL 80 
INDICATES THE LAST CARD 


41530 75 30177 41532 

41531 11 00001 41771 

41532 75 30177 00001 

41533 11 41534 00001 

41534 00001 17 00000 00154 

41535 00002 75 10004 00004 

41536 00003 16 00153 00105 

41537 00004 75 10006 00006 

41540 00005 11 00146 00157 

41541 00006 11 00152 00175 

41542 00007 15 00153 00016 

41543 00010 76 00000 00165 

41544 00011 76 10000 00166 

41545 00012 76 10000 00167 

41546 00013 15 00155 00122 

41547 00014 15 00155 00125 

41550 00015 11 00166 00165 

41551 Q0016 11 00135 00170 

41552 00017 37 00133 00120 

41553 00020 11 00167 00165 

41554 00021 37 00133 00120 

41555 00022 21 00016 00156 

41556 00023 41 00175 00010 

41557 00024 31 00157 00017 

41560 00025 11 32000 31000 

41561 00026 22 00000 32000 

41562 00027 47 00030 00034 

41563 00030 42 00150 00032 

41564 00031 45 00000 00033 

41565 00032 32 00151 00000 

41566 00033 16 32000 00105 

41567 00034 31 31000 00025 

41570 00035 32 00160 00017 

41571 00036 22 00000 00171 

41572 00037 31 32000 00017 

41573 00040 11 32000 31000 



R1 


R2 


R3 


Cl 

C2 
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LT 


A 

ZJ 

L+l 

R1 

TJ 

2 008B 

L + 2 

MJ 


L+2 

SA 

DCIADD 


TV 

A 

C2 

SP 

Q 

6 

SA 

T+2 

30 

LT 


T + ll 

SP 

A 

6 

SA 

T+3 

9 

TP 

A 

Q 

LT 


A 

ZJ 

L+l 

R2 

TJ 

200BB 

L+2 

MJ 


L+2 

SA 

DCIADD 


TV 

A 

C3 

SP 

Q 

27 

SA 

T+4 

9 

LT 


T + 12 

SP 

A 

15 

TP 

A 

Q 

LT 


A 

ZJ 

L+l 

R3 

TJ 

200BB 

L+2 

MJ 


L+2 

SA 

DCIADD 


TV 

A 

C4 

SP 

Q 

12 

SA 

T+5 

24 

LT 


T + l 3 

ER 


A 

ER1 


Q 

ER1 


Q 

ZJ 

STOP 

AGIN 

TP 

T+l 0 

Q 

TP 

T+ll 

Q 


OF THE DECK TO BE LOADED 
AFTER THE LAST CARD IS 
LOADED CONTROL IS SENT 
TO 40034 WHICH CONTAINS 
A RJ L L+l 40035 CON¬ 
TAINS A MSG 40000 
EXCEPT FOR COL 80 ALL 
ZONE PUNCHES AND COLS 
69-79 WILL BE IGNORED 
THIS ROUTINE FIRST 
STORES CORE STORAGES 
00001-00177 INCLUSIVE 
INTO THE DCI (DRUM CORE 
IMAGE) BUFFER LOCATED 
AT 41771-43770 INCL. 

THEN BOOTSTRAPS ITSELF 
INTO CORE STORAGE 
00001-00170 FOR EXEC¬ 
UTION* ALL WORDS TO 


41574 

00041 

22 

00000 

41575 

00042 

47 

00043 

41576 

00043 

42 

00150 

41577 

00044 

45 

00000 

41 6 00 

00045 

32 

00151 

41601 

00046 

16 

32000 

41602 

00047 

31 

31000 

41603 

00050 

32 

00161 

41604 

00051 

22 

OOOCO 

41605 

00052 

31 

32000 

41606 

00053 

32 

00162 

41607 

00054 

11 

32000 

41610 

00055 

22 

00000 

41611 

00056 

47 

00057 

41612 

00057 

42 

00150 

41613 

00060 

45 

00000 

41614 

00061 

32 

00151 

41615 

00062 

16 

32000- 

41616 

00063 

31 

31000 

41617 

00064 

32 

00163 

41620 

00065 

22 

00000 

41621 

00066 

31 

32000 

41622 

00067 

11 

32000 

41623 

00070 

22 

00000 

41624 

00071 

47 

00072 

41625 

00072 

42 

00150 

41626 

00073 

45 

00000 

41627 

00074 

32 

00151 

41630 

00075 

16 

32000 

41631 

00076 

31 

31000 

41632 

00077 

32 

00164 

41633 

00100 

22 

00000 

41634 

00101 

76 

00000 

41635 

00102 

76 

10000 

41636 

00103 

76 

10000 

41637 

00104 

47 

00115 

41640 

00105 

11 

00171 

41641 

00106 

11 

00172 


32000 
00047 
00045 
00046 
00000 
00106 
00006 
00036 
00172 
00006 
00011 
31000 
32000 
00063 
00061 
00062 
00000 
00107 
00033 
00011 
00173 
00017 
31000 
32000 
00101 
00074 
00075 
00000 
00110 
00014 
00030 
00174 
32000 
31000 
31000 
00112 
31000 
31000 
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C3 

TP 

T+12 

Q 

C4 

TP 

T+13 

Q 

C5 

MJ 



AGIN 

EF 


RDCARD 


RJ 

C5 

Cl 


MJ 


START+1 

STOP 

RJ 

C5 

Cl 


RPB 

127 

40034B) 


TP 

DCI+1 

1 

TAG 

TP 

L2 

X2 


TP 

L13 

X3 


LQ 

T 

3 


TP 

T+6 

Q 


QJ 

L+l 

L+2 


RA 

T 

T+9 


TP 

Q 

T+6 


IJ 

X3 

TAG+2 


RA 

TAG+2 

B15 


RA 

TAG+5 

B15 


IJ 

X2 

TAG+1 

TAGE 

MJ 



LI 3 

B 

13 


L9 

B 



L8 

B 



L7 

B 

7 


L6 

B 

6 


L5 

B 

5 . 


L4 

B 

4 


L3 

B 

3 


L2 

B 

2 


LI 

B 

1 


LO 

B 



LX 

B 



200BB 

B 

200 


DC IADD 



DC I 

L12 

B 

12 


QV 


L9 

Q 

RDCARD 

B 

400000000005 



BE STORED WITHIN THESE 
LIMITS WILL BE TEMP¬ 
ORARILY STORED IN THE 
DC I BUFFER WHEN LOADING 
HAS TERMINATED THE DC I 
BUFFER IS SENT TO CORE 
ALL CONVERSION AND SET¬ 
UP OF STORE INSTRUCTIONS 
IS COMPLETED BEFORE 
ROW TWELVE HAS BEEN READ 
IF THE CARD READ DOES 
NOT CONTAIN A Y (TWELVE} 
PUNCH IN COL*80 A PICK 
AND READ EF CODE {40000 
000005? IS GIVEN IMMED¬ 
IATELY AFTER ROW 12 HAS 
BEEN READ HENCE FULL 
CARD READ SPEED IS ATT¬ 
AINED DESPITE 4 POSS- 


41642 00107 11 00173 31000 

41643 00110 11 00174 31000 

41644 00111 45 00000 00000 

41645 00112 17 00000 00154 

41646 00113 37 00111 00105 

41647 00114 45 00000 00002 

41650 00115 37 00111 00105 

41651 00116 75 30177 40034 

41652 00117 11 41771 00001 

41653 00120 11 00144 00176 

41654 00121 11 00134 00177 

41655 00122 55 00157 00003 

41656 00123 11 00165 31000 

41657 00124 44 00125 00126 

41660 00125 21 00157 00170 

41661 00126 11 31000 00165 

41662 00127 41 00177 00122 

41663 00130 21 00122 00156 

41664 00131 21 00125 00156 

41665 00132 41 00176 00121 

41666 00133 45 00000 00000 

41667 00134 00 00000 00013 

41670 00135 00 00000 00000 

41671 00136 00 00000 00000 

41672 00137 00 00000 00007 

41673 00140 00 00000 00006 

41674 00141 00 00000 00005 

41675 00142 00 00000 00004 

41676 00143 00 00000 00003 

41677 00144 00 00000 00002 

41700 00145 00 00000 00001 

41701 00146 00 00000 00000 

41702 00147 00 00000 00000 

41703 00150 00 00000 00200 

41704 00151 00 00000 41770 

41705 00152 00 00000 00012 

41706 00153 00 00135 31000 

41707 00154 40 00000 00005 
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TRES 


T 


IBLE DRUM STORES# THIS 

41710 

00155 

00 

00157 

00000 

B15 

B15 

1 



41711 

00156 

00 

00001 

00000 

T 

RSRV 

SETL 

E 

14 

ROUTINES READS THREE 






DCI 

EQLS 

41770B) 

UNDEFINED 

FIELDS (ALL 80 COLUMNS)• 
TAGS X4 


175 

00 

00000 

00000 





X2 


176 

00 

00000 

00000 





X3 


177 

00 

00000 

00000 


END 
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NAME: 


FUNCTION: 


OPERATING 
INSTRUCTIONS: 


CODE: 


STOPS: 


COMMENTS: 


RELATIVIZER 


To convert a SLAP output (symbolic) tape into a 
relativized SLAP symbolic output tape. 

1. Clear console. 

2. Set PAK « 1*0021. 

3. Set Q = 00 OOQAA 000BB 
where AA = input tape 

BB = output tape. 

1*. Set A r = XS3 representation of exceptional tag. 
5. Depress start button. 

21 . 

PAK = 1*0000, Success stop. 

All of core is used by this routine. For general 
restrictions see comments of coding# 
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BUFF 

BUFFER 


Z 


READ 


SWITCH 


RELATIVIZER 


SETL 

1 

1 

RSRV 

20 

20 

RSRV 

3720 

3720 

SETL 

5301IB) 

5301IB) 

RPB 

360 )B 

Z 

TP 

L+l 

Z 

SETL 


7414) B 

TP 

A 

TBL+4 

TP 

Q 

TAGS 

LQ 

Q 

A+12 

TP 

L (1700008) 

Q 

OS 

A 

GOWRT 

QS 

A 

RWND4 

LA 

TAGS 

69 

RPV 

3 

L+2 

QS 

A 

GORD 

TP 

DMMY1 

SWITCH 

TP 

L C 0 ) 

TAGS 

MJO 


START 

TN 

L (1) 

BLOCKS 

EF 


BIAS 

EF 


GORD 

MP 

BLOCKS 

L(120) 

AT 

SETUP 

STORE 

TP 

L {0 )* 

LOC+8 

TP 

L (5) 

BKCTR 

ER1 


BUFF 

SP 

BUFF 

18 

ER1 


BUFF+1 

LQ 

BUFF+1 

Q + l 8 

SA 

Q 


EJ 

SPACES 

SWITCH+5 

RJ 

L 

FILL 

SP 

SPACES 


LTO 

18 

BUFF 

TP 

A 

BUFF+1 

RA 

LOC+8 

L (15 

ER1 


BUFF+2 


THIS PROGRAM CONVERTS A 
SLAP (SYMBOLIC) OUTPUT 
TAPE INTO A RELATIVIZED 
SLAP SYMBOLIC OUTPUT 
TAPE « A PASS OF THIS 
TAPE THROUGH THE TAPE 
TO CARD CONVERTER WITH 
OFFSET PUNCHING WILL 
PRODUCE A DETAGGED 
PROGRAM DECK. 


ALL TAGS IN THE TAG 
FIELD.EXCEPT THE FIRST 
ONE ENCOUNTERED»ARE 
RESET TO BLANKS. TAGS 
IN THE-U AND V FIELD 
ARE RELATIVIZED.THAT IS 
CHANGED TO THE FORM 
L+N OR L-N.WHERE N IS 
A DECIMAL INTEGER. 


HOWEVER* THE FOLLOWING 
TAGS (OR WORDS) ARE NOT 
RELATIVIZED ^DECIMAL 
NUMBERS»OCTAL NUMBERS* 

L(N! NUMBERS*A »Q»L+N OR 
L-N AND FILL. 


IN ADDITION THE PROGRAM 
MER IS ALLOWED A CHOICE 
OF ONE UNDEFINED 
SYMBOL. THIS SYMBOL IS 
PLACED IN XS3 IN THE 
LOW ORDER OF THE ACC¬ 
UMULATOR BEFORE HITTING 



53011 

75 

30360 

07414 


53012 

11 

53013 

07414 

53013 

07414 

11 

32000 

07652 

53014 

07415 

11 

31000 

07771 

53015 

07416 

55 

31000 

32014 

53016 

07417 

11 

07757 

31000 

53017 

07420 

53 

32000 

07612 

53020 

07421 

53 

32000 

07613 

53021 

07422 

54 

07771 

00105 

53022 

07423 

75 

10003 

07425 

53023 

07424 

53 

32000 

07607 

53024 

07425 

11 

07514 

07445 

53025 

07426 

11 

07760 

07771 

53026 

07427 

45 

00000 

07501 

53027 

07430 

13 

07761 

07772 

53030 

07431 

17 

00000 

07574 

53031 

07432 

17 

00000 

07607 

53032 

07433 

71 

07772 

07762 

53033 

07434 

35 

07515 

07462 

53034 

07435 

11 

07760 

07744 

53035 

07436 

11 

07763 

07773 

53036 

07437 

76 

10000 

00001 

53037 

07440 

31 

00001 

00022 

53040 

07441 

76 

10000 

00002 

53041 

07442 

55 

00002 

31022 

53042 

07443 

32 

31000 

00000 

53043 

07444 

43 

07603 

07452 

53044 

07445 

37 

07445 

30000 

53045 

07446 

31 

07603 

00000 

53046 

07447 

22 

00022 

00001 

53047 

07450 

11 

3 2 000 

00002 

53050 

07451 

21 

07744 

07761 

53051 

07452 

76 

10000 

00003 
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RELATIVIZER 



SP 

BUFF+2 

18 

THE START BUTTON* FOR 

53052 

07453 

31 

00003 

00021 


LTO 


A 

EXAMPLE♦I F A SUBROUTINE 

53053 

07454 

22 

00000 

32000 


EJ 

TSTWD 

LAST 

IS TO BE RELATIVIZED* 

53054 

07455 

43 

07606 

07564 


RP1 

17 

STORE+1 

AND THE TAG -TEMPS- 

53055 

07456 

75 

10021 

07463 


ER1 


BUFF+3 

IS TO BE USED FOR A 

53056 

07457 

76 

10000 

00004 


RA 

STORE 

L C 2 0 ) 

TEMPORARY POOL*SETTING 

53057 

07460 

21 

07462 

07764 


RP3 

20 

READ+10 

006630475265 INTO Q 

53060 

07461 

75 

30024 

07437 

STORE 

TP 

FILL 

FILL 

WILL CAUSE THIS TAG TO 

53061 

07462 

11 

30000 

30000 


IJ 

BKCTR 

STORE-2 

BE UNRELATIVIZED WHEN 

53062 

07463 

41 

07773 

07460 


ERO 


A 

IT APPEARS IN THE U OR 

53063 

07464 

76 

00000 

32000 


ZJ 

L+l 

L+8 

V FIELDS.{HOWEVER*IT 

53064 

07465 

47 

07466 

07475 


EF 


BACK 

WILL NOT APPEAR IN THE 

53065 

07466 

17 

00000 

07611 


TP 

TAGS 

A 

TAG FIELD UNLESS IT IS 

53066 

07467 

11 

07771 

32000 


ZJ 

L+2 

L+l 

THE FIRST TAG DEFINED 

53067 

07470 

47 

07472 

07471 


TP 

DMMY1 

SWITCH 

IN THE PROGRAM.) 

53070 

07471 

11 

07514 

07445 


TP 

BIAS 

BIAS+3 


53071 

07472 

11 

07574 

07577 


RP3 

3 

READ+4 


53072 

07473 

75 

30003 

07431 


TP 

BIAS+1 

BIAS 

EXCEPTIONAL CASES* 

53073 

07474 

11 

07575 

07574 


RA 

TAGS 

LOC+8 


53074 

07475 

21 

07771 

07744 


RA 

BLOCKS 

L (1) 


53075 

0 7476 

21 

07772 

07761 


EJ 

LOO) 

L+8 

*1. EQLS 

53076 

0 7477 

43 

07765 

07507 


MJO 


FILL 

THE EQUALS OPERATIONS 

53077 

07500 

45 

00000 

30000 

START 

RJ 

L-l 

READ+3 

BECOME MEANINGLESS IN 

53100 

07501 

37 

07500 

07430 


RA 

STORE 

L {20) 

THE RELATIVIZED 

53101 

07502 

21 

07462 

07764 


TP 

A 

L+2 

PROGRAM SINCE* IN 

53102 

07503 

11 

32000 

07505 


RP3 

20 

READ+6 

GENERAL* THERE IS NO 

53103 

07504 

75 

30024 

07433 


TP 

FILL 

FILL 

TAG IN THE TAG FIELD. 

53104 

07505 

11 

30000 

30000 


RJ 

START-1 

STORE-4 

HOWEVER*IF THE ORIGIN 

53105 

07506 

37 

07500 

07456 


EF 


STOP 

AL PROGRAM LINE WAS OF 

53106 

07507 

17 

00000 

07605 


RA 

STORE 

L {20) 

THE FORM 

53107 

07510 

21 

07462 

07764 


TP 

A 

L+2 

TAG1 EQLS TAG2+-N * 

53110 

07511 

11 

32000 

07513 


RP3 

20 

WRITE 

THE RELATIVIZATION 

53111 

07512 

75 

30024 

07516 


TP 

FILL 

FILL 

PROCESS HAS ALREADY 

53112 

07513 

11 

30000 

30000 

DMMY1 

RJ 

SWITCH 

SWITCH+2 

TAKEN THIS SYNONYMITY 

53113 

07514 

37 

07445 

07447 

SETUP 

TP 

BUFF 

BUFFER+100 

INTO ACCOUNT. IF IT 

53114 

07515 

11 

00001 

00171 

WRITE 

RP3 

3 

L+2 

WAS OF THE FORM 

53115 

07516 

75 

30003 

07520 


TP 

BIAS+4 

BIAS 

TAG1 EQLS N WHERE N 

53116 

07517 

11 

07600 

07574 


EF 

BUFFER+20 

BIAS 

IS A DECIMAL (OR 

53117 

07520 

17 

00051 

07574 



ALSO 


CIRC 


LAST 


RELATIVIZER 


TU 

WRITE+2 

CIRC+3 

EF 


GOWRT 

RP3 

20 

L + 2 

TP 

BUFFER 

BUFF 

TP 

L ( 5 ) 

BKCTR 

TV 

L-2 

CIRC+1 

TP 

BUFF + 13 

A 

EJ 

SPACES 

L + 2 

TP 

A 

LOC 

SP 

BUFF+3 


RJ 

OUT 

LOOP 

ZJ 

L + l 

L + 5 

TP 

BUFF+15 

LOC+1 

RJ 

CVERT 

FIELD 

TP 

A 

BUFF+3 

TP 

LOC+8 

BUFF+4 

SP 

BUFF+5 


RJ 

OUT 

LOOP 

ZJ 

L + l 

L+5 

TP 

BUFF+16 

LOC+1 

RJ 

CVERT 

FIELD 

TP 

A 

BUFF+5 

TP 

LOC+8 

BUFF+6 

TP 

L (19 5 

LOC+8 

EW1 

* 

FILL 

TV 

L—1 

L + l 

TP 

FILL 

FILL 

RA 

CIRC+1 

L ( 1 ) 

RA 

L-2 

UADV 

I J 

LOC+8 

CIRC+1 

I J 

BKCTR 

ALSO+1 

I J 

BLOCKS 

ALSO 

RJ 

L 

L + l 

EF 


STOP 

M JO 


READ+3 

TP 

DM MY 1 

SWITCH 

RJ 

LAST-3 

START+5 

RP 

120 

L+2 
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OCTAL ) NUMBER* THEN 
TAG1 IS NOT PROPERLY 
RELATIVIZED. IT SHOULD 

BE POINTED OUT THAT 
THE LATTER USUAGE OF 
EQLS IS INCONSISTENT 
WITH A RELATIVIZED 
PROGRAM* IF TAG1 IS TO 
BE A (KNOWN) CONSTANT 
IT MUST BE INSERTED 
INTO THE BODY OF THE 
PROGRAM WHEREVER IT 
OCCOURS IN THE U OR V 
FIELDS. 


*2.SETL 

IF A TAG OCCOURS IN 
A SETL* THIS TAG IS 
RELATIVIZED ACCORDING 
TO THE PREVIOUS SET¬ 
TING OF THE LOCATION 
COUNTER* BUT NO 
ATTEMPT IS MADE TO 
KEEP TRACK OF ANY RSRV 
CONSEQUENTLY* IF A 
SETL IS IMMEDIATELY 
PRECEDED BY A RESERVE* 
TAGS IN THE U AND V 
FIELD WILL BE IM¬ 
PROPERLY RELATIVIZED. 


*3.OCTAL ADDRESSES IN 
U OR V* 

IF THE NUMBER IN U OR 
V HAS SIX (OR MORE) 
CHARACTERS PRECEDING 


53120 

07521 

15 

07520 

07553 

53121 

07522 

17 

00000 

07612 

53122 

07523 

75 

30024 

07525 

53123 

07524 

11 

00025 

00001 

53124 

07525 

11 

07763 

07773 

53125 

07526 

16 

07524 

07551 

53126 

07527 

11 

00016 

32000 

53127 

07530 

43 

07603 

07532 

531 30 

07531 

11 

32000 

C7734 

53131 

07532 

31 

00004 

00000 

53132 

07533 

37 

07645 

07614 

53133 

07534 

47 

07535 

07541 

53134 

07535 

11 

00020 

07735 

53135 

07536 

37 

07731 

07653 

53136 

07537 

11 

32000 

00004 

53137 

07540 

11 

07744 

00005 

53140 

07541 

31 

00006 

00000 

53141 

07542 

37 

07645 

07614 

53142 

07543 

47 

07544 

07550 

53143 

07544 

11 

00021 

07735 

53144 

07545 

37 

07731 

07653 

53145 

07546 

11 

32000 

00006 

53146 

07547 

11 

07744 

00007 

53147 

07550 

11 

07766 

07744 

53150 

07551 

77 

10000 

30000 

53151 

07552 

16 

07551 

07553 

53152 

07553 

11 

30000 

30000 

53153 

07554 

21 

07551 

07761 

53154 

07555 

21 

07553 

07604 

53155 

07556 

41 

07744 

07551 

53156 

07557 

41 

07773 

07526 

53157 

07560 

41 

07772 

07525 

53160 

07561 

37 

07561 

07562 

53161 

07562 

17 

00000 

07605 

53162 

07563 

45 

00000 

07430 

53163 

07564 

11 

07514 

07445 

53164 

07565 

37 

07561 

07506 

53165 

07566 

75 

00170 

07570 
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EW1 


SIXOHS 

THE RIGHT PARENTHESIS* 

53166 

07567 

77 

10000 

07756 


EF 


STOP 

IT WILL F E A5 $UMM£ D 

53167 

07570 

17 

00000 

07605 


EF 


RWND4 

TO BE A TAG AND NOT 

53170 

07571 

17 

00000 

07613 


EF 


RWND5 

AN OCTAL ADDRESS. 

53171 

07572 

17 

00000 

07610 


MJ 


40034B1 

ALL DECIMAL ADDRESSES* 

53172 

07573 

45 

00000 

40034 

BIAS 

B 

020000150000 


AND OCTAL ADDRESSES 

53173 

07574 

02 

00001 

50000 


B 

020000160000 


WITH LESS THAN SIX 

53174 

07575 

02 

00001 

60000 


B 

020000170000. 


CHARACTERS BEFORE THE 

53175 

07576 

02 

00001 

70000 


B 



RIGHT PARENTHESIS. ARE 

53176 

07577 

00 

00000 

00000 


B 

020000150000 


NOT AFFECTED, THUS? 

53177 

07600 

n 

U 

00001 

5 00 GO 


B 

020000160000 


THE U (OR V) FIELDS 

53200 

07601 

02 

00001 

60000 


B 

020000170000 


2405 5 ? 

53201 

C7602 

02 

C0001 

70000 

SPACES 

B 

010101010101 


46000} 8 *-ETC* 

53202 

07603 

01 

01010 

10101 

UADV 

815 

1 


WILL BE TREATED AS 

53203 

07604 

00 

00001 

00000 

STOP 

B 

020060000000 


OCTAL? BUT 

53204 

07605 

02 

00600 

00000 

TSTWD 

B 

305027 


460009) 

53205 

07606 

00 

00003 

05027 

GORD 

B 

020000240000 


WILL BE ASSUMED TO BE 

53206 

07607 

02 

00002 

40000 

RWND5 

B 

020020050000 


THE TAG 

53207 

07610 

02 

00200 

50C00 

BACK 

B 

020061440001 


.460005 

53210 

07611 

02 

00614 

40001 

GOWRT 

B 

020004650000 


AND WILL BE RELATIVIZ 

53211 

07612 

02 

00046 

50000 

RWND4 

B 

020020040000 


ED» THUS? FIVE DIGIT 

53212 

07613 

02 

00200 

40000 

LOOP 

LT1 

6 

Q 

OCTAL ADDRESSES SHOULD 

53213 

07614 

22 

10006 

31000 


QJ 

L+9 

L + l 

ALWAYS BE WRITTEN 

5 3 214 

07615 

44 

07626 

07616 


:j 

LOOP 

L + l 

DDDDD55 

53215 

07616 

44 

07614 

07617 


QJ 

L+4 ‘ 

L + l 

IF THE ROUTINE IS TO 

53216 

07617 

44 

07623 

07620 


QJ 

LOOP 

L + l 

BE RELATIVIZED. 

53217 

07620 

44 

07614 

07621 


QJ 

L+l 

DEC 


53220 

07621 

44 

07622 

07636 


QJ 

LOOP 

DEC 


53221 

07622 

4 4 

Q7614 

07636 


QJ 

L + l 

LOOP 


53222 

07623 

44 

07624 

07614 


QJ 

L + l 

LOOP 

THE MOST FREQUENT USE 

53223 

07624 

44 

07625 

07614 


QJ 

DEC 

LOOP 

OF THIS ROUTINE SHOULD 

53224 

07625 

44 

07636 

07614 


QJ 

L + l 

L + 4 

BE RELATIVIZAT I CM OF 

53225 

07626 

44 

07627 

07632 


QJ 

LOOP 

L + l 

SUBROUTINES SUCH THAT 

53226 

07627 

^4 

07614 

07630 


QJ 

LOOP 

L + l 

AMY PROGRAMMER "AY USE 

53227 

07630 

44 

07614 

07631 


QJ 

L~4 

LOOP 

THE ROUTINE AND LIMIT 

53230 

07631 

A 6. 

07625 

0 7614 


QJ 

LOOP 

L + l 

0 H L Y T H E F I R S T T A G C F 

53231 

07532 

4 4 

0 7614 

0 763 3 


QJ 

LOOP 

L + l 

THE SUBROUTINE FROM 

53232 

07633 

4 4 

07614 

07634 


QJ 

L + l 

LOOP 

HIS PROGRAM« 

532 33 

07634 

4 4 

0 7 53 5 

0761 4 
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DEC 


OUT 

TBL 


FIELD 


RELATIVIZER 


QJ 

OUT-1 

LOOP 

LTO 


Q 

QT 

SIXOHS 

A 

ZJ 

L+l 

OUT 

TP 

Q 

A 

RP2 

5 

OUT 

EJ 

TBL 

L + l 

TP 

L (0) 

A 

M JO 


FILL 

B 

24 


B 

46 


B 

53 


B 

31344646 


B 

TP 

L(628) 

LOC+3 

SP 

LOC+1 


ST 

LOC 

Q 

SJ 

L+l 

L+4 

TP 

L {1) 

LOC+3 

SP 

LOC 


ST 

LOC+1 

Q 

RP3 

5 

L+2 

QT 

MASKS 

LOC+4 

SS 

A 


RP2 

5 

L+2 

SA 

LOC+4 

3 

LTO 

21 

A 

TJ 

TEN4 

L+6 

RP3 

4 

L+2 

DV 

TEN4 

LOC+4 

SA 

L (2 ) 

30 

AT 

SPACES 

LOC+8 

M JO 


XS3 

TP 

SPACES 

LOC+8 

TJ 

TENS 

L+6 

DV 

TENS 

LOC+4 

DV 

TENS+1 

LOC+5 

DV 

TENS+2 

LOC+6 


THE FEATURE OF BEING 
ABLE TO LEAVE ONE 
ADDED TAG NOT RELATIV¬ 
IZED ALLOWS THE 
PROGRAMMER TO HAVE A 
COMMON TEMPORARY POOL 
FOR ALL SUBROUTINES 
HE USES*A5 WELL AS THE 
TEMPORARIES HIS PROGRAM 
MAY REQUIRE. 


THE ROUTINE IS A ONE- 
PASS ROUTINE READING 
FREE RUN FOR THIRTY-TWO 
BLOCKS THEN OUTPUTS 
FREE RUN FOR THE SAME 
NUMBER OF BLOCKS* 


THE OCTAL TRANSLATION 
OF THE PROGRAM IS 
DELETED ON THE OUTPUT 
TAPE. 


IF THERE IS NO TAPE-TO- 
CARD CONVERTER AVAIL¬ 
ABLE .THE TAPE TO CARD 
SIMULATOR PROVIDED IN 
THE SERVICE LIBRARY 


53234 

07635 

44 

07644 

07614 

53235 

07636 

22 

00000 

31000 

53236 

07637 

51 

07756 

32000 

53237 

07640 

47 

07641 

07645 

53240 

07641 

11 

31000 

32000 

53241 

07642 

75 

20005 

07645 

53242 

07643 

43 

07646 

07644 

53243 

07644 

11 

07760 

32000 

53244 

07645 

45 

00000 

30000 

53245 

07646 

00 

00000 

00024 

53246 

07647 

00 

00000 

00046 

53247 

07650 

00 

00000 

00053 

53250 

07651 

00 

00313 

44646 

53251 

07652 

00 

00000 

00000 

53252 

07653 

11 

07767 

07737 

53253 

07654 

31 

07735 

00000 

53254 

07655 

36 

07734 

31000 

53255 

07656 

46 

07657 

07662 

53256 

07657 

11 

07761 

07737 

53257 

-07660 

31 

07734 

00000 

53260 

07661 

36 

07735 

31000 

53261 

07662 

75 

30005 

07664 

53262 

07663 

51 

07745 

07740 

53263 

07664 

34 

32000 

00000 

53264 

07665 

75 

20005 

07667 

53265 

07666 

32 

07740 

00003 

53266 

07667 

22 

00025 

32000 

53267 

07670 

42 

07752 

07676 

53270 

07671 

75 

30004 

07673 

53271 

07672 

73 

07752 

07740 

53272 

07673 

32 

07770 

00036 

53273 

07674 

35 

07603 

07744 

53274 

07675 

45 

00000 

07723 

53275 

07676 

11 

07603 

07744 

53276 

07677 

42 

07753 

07705 

53277 

07700 

73 

07753 

07740 

53300 

07701 

73 

07754 

07741 

53301 

07702 

73 

07755 

07742 
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TP 

A 

LOC+7 

WILL PRODUCE A DECK 


MJO 


XS3 

THAT CAN BE OFFSET 


TN 

L(1) 

LOC+7 

REPRODUCED ON A 


TJ 

TENS+1 

L + 5 

REPRODUCER* 


DV 

TENS+1 

LOC+4 



DV 

TENS+2 

LOC + 5 



TP 

A 

LOC+6 



MJO 


XS3 



TN 

L (1 ) 

LOC+6 

THE REASON OFFSET 


TJ 

TENS+2 

L+4 

REPRODUCING IS NECESS¬ 


DV 

TENS+2 

LOC+4 

ARY IS THAT AN ASSEMB¬ 


TP 

A 

LOC+5 

LED PROGRAM HAS CERTAIN 


MJO 


XS3 

FIELDS SHIFTED TO THE 


ZJ 

L+l 

XS3 + 5 

RIGHT. 


TN 

LC1) 

LOC+5 



TP 

A 

LOC+4 


XS3 

SS 

A 




RP2 

4 

L+2 



SA 

LOC+3 

6 



SA 

COC+7 


THE OFFSET TAPE-TO-CARD 


SA 

TWOS 


CONVERTER BOARD OR THE 


SA 

HELLS 


REPRODUCER OFFSET 

CVERT 

MJO 


FILL 

BOARD WILL PRODUCE A 

TWOS 

B 

000002020202 


DECK THAT CAN BE 

HELLS 

B 

460101010101 


ASSEMBLED AGAIN AS 

LOC 

RSRV 

9 

9 

A DETAGGED ROUTINE. 

MASKS 

B 

7 




B6 

7 




B12 

7 




B18 

7 




B24 

7 



TEN4 

B 

23420 



TENS 

B 

1750 




B 

144 




B 

12 



SIXOHS 

8 

606060606060 

CONSTANT 

P OOL LI170000BJ 


LCO) 


53302 07703 

53303 07704 

53304 07705 

53305 07706 

53306 07707 

53307 07710 

53310 07711 

53311 07712 

53312 07713 

53313 07714 

53314 07715 

53315 07716 

53316 07717 

53317 07720 

53320 07721 

53321 07722 

53322 07723 

53323 07724 

53324 07725 

53325 07726 

53326 07727 

53327 07730 

53330 07731 

53331 07732 

53332 07733 

53344 07745 

53345 07746 

53346 07747 

53347 07750 

53350 07751 

53351 07752 

53352 07753 

53353 07754 

53354 07755 

53355 07756 

53356 07757 

53357 07760 


11 32000 07743 
45 00000 07723 
13 07761 07743 
42 07754 07713 
73 07754 07740 
73 07755 07741 
11 32000 07742 
45 00000 07723 
13 07761 07742 
42 07755 07720 
73 07755 07740 
11 32000 07741 
45 00000 07723 
47 07721 t)7730 
13 07761 07741 
11 32000 07740 
34 32000 00000 
75 20004 07726 
32 07737 00006 
32 07743 00000 
32 07732 00000 
32 07733 00000 

45 00000 30000 
00 00020 20202 

46 01010 10101 

00 00000 00007 
00 00000 00700 
00 00000 70000 
00 00070 00000 
00 07000 00000 
00 00000 23420 
00 00000 01750 
00 00000 00144 
00 00000 Q0012 
60 60606 06060 
00 00001 70000 
00 00000 00000 
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Lfl } 

53360 

07761 

00 

00000 

00001 



U(120» 

53361 

07762 

00 

00000 

00170 



L(5) 

53362 

07763 

00 

00000 

00005 



L {20 j 

53363 

07764 

00 

00000 

00024 



LOO) 

53364 

07765 

00 

00000 

00036 



L (19) 

53365 

07766 

00 

00000 

00023 



L{62B) 

53366 

07767 

00 

00000 

00062 



L (2 ) 

53367 

07770 

00 

00000 

00002 

UNDEFINED 

TAGS 

TAGS 

53370 

07771 

00 

00000 

00000 



BLOCKS 

53371 

07772 

00 

00000 

00000 



BKCTR 

53372 

07773 

00 

00000 

00000 


END 



1103AF-OPS-OOOOIS 


NAMES 


FUNCTION: 


OPERATING 

INSTRUCTIONS: 


CODE: 


STOPS: 


COMMENTS: 


TAG OR CLEAR CORE/DRUM 

To tag or clear core and/or drum. 

1. Clear console. 

2. Set PAK - U0O22. 

3. Set Q 

a) Q « 0, clear memory band. 

b) Q • 1, tag memory band. 

i*. Set A v = first word of band to be cleared or tagged. 
5 . Depress start button. 

22 . 

PAK * UOOOO, Success stop. 

The first word of the band is not tagged or cleared. 

This routine tags or clears U09!? consecutive cells 
starting at Y+l, where Y is the address in A. 



1103AF -OPS -OOQQ1S 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 


CODE: 

STOPS: 

COMMENTS: 


LOAD MEMORY CELL FROM Q. 

To load a memory cell from the console. 

1. Clear console. 

2. Set PAK * i;0023. 

3. Set A y = Cell to be loaded. 

U. Set Q = Information to be loaded into cell, 
j?. Depress start button. 

23. 

PAK = i|172]*, Success stop. 

The address in A is bumped by one each time so that 
consecutive loading may be accomplished. After the 
initial load, start at U172U for subsequent loading. 



1103AF-OPS-OOOOIS 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 

CODE: 

STOPS: 

COMMENTS: 


DISPLAY CONTENT OF MEMORY CELL. 


To display in Q the content of any specified memory cell. 

1. Clear console. 

2. Set PAK * 1*0021*. 

3. Set A * desired memory cell. 

1*. Depress start button. 

21 *. 

PAK ** 1*1733* Success stop. 

The address in A is bumped by one after execution. This 
permits successive read-outs. 



1103AF-0PS-000Q1S 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 

CODE: 

STOPS: 

COMMENTS: 


REWIND WITH END-OF-FILE OPTION. 

Rewind specified tape units, writing End-of-File 
if desired. 

1 . Clear console. 

2. Set PAK - 1+002$. 

3. Set bits in Q corresponding to tapes to be rewound. 
Set Q 35 = 1 if EOF desired. 

U. Depress start button. 

25 . 

PAK = U0000, Success Stop. 

If the EOF option is specified, one fixed block of 
printer stops is written before the rewind is executed. 



TAG OR CLEAR CORE/DRUM 



SETL 

41724B) 

41724B) 

G 

TV 

A 

L+l 


TP 

Q 

Q 


SA 

6+6 



LT 


Q 


TV 

L—1 

G+l 


MS 


G 


B 

1 



SETL 

41733B ) 

417338) 

H 

LA 

A 

15 


TU 

A 

L + l 


TP 

A 

Q 


SA 

L+3 

71B) 


TU 

H+l 

H+2 


MS 


H 


B15 

1 



SETL 

41712B) 

41712B) 

W 

AT 

W1 

L+6 


SS 

W1 



LQ 

Q 

35 


QJ 

L+2 

L+l 


RS 

A 

A 


RP1 

7777B) 

L+2 


AT 

Q 

L + l 


TV 

L-2 

L—1 


MJ 


40034B) 

W1 

AT 

Q 

1 


SETL 

41742B) 

41742B) 

RW 

RPB 

20 

RW1 


TP 

L+l 

RW1 


SETL 


10B) 

RW1 

QJ 

L+2 

L+l 


TV 

P-4 

Q J+5 


LQ 

Q 

24 


RJ 

QJ+4 

L+2 

QJ 

QJ 

L+l 

L-l 


RS 

P 

P+3 


RS 

P+1 

P + 3 
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STORE 36 BIT WORD IN 
Q INTO ADDRESS SPECI¬ 
FIED IN V ADDRESS OF 
ACCUMULATOR BUMP THIS 
STORAGE ADDRESS BY ONE 
AND STOP (MSO) WITH 
PAK EQUAL TO STARTING 
ADDRESS OF THIS ROUTINE 
STORE 36 BIT WORD INTO 
Q FROM AN ADDRESS SPEC 
FIED IN THE V ADRESS 
OF THE ACCUMULATOR BUMP 
THIS ADDRESS BY ONE AND 
STOP (MSO) WITH PAK 
EQUAL TO THE STARTING 
ADDRESS OF THIS ROUTINE 
SET 4095 CONSECUTIVE 
CELLS TO EITHER ZERO 
OR ASCENDING VALUES 
BEGINNING WITH THE 
NON ZERO VALUE APPEAR¬ 
ING IN THE Q REGISTER 
THE FIRST CELL TO BE 
SET IS SPECIFIED IN 
THE V ADDRESS OF A 
A MSO WITH PAK EQUAL 
TO 40000 WILL OCCUR 
REWIND WITH END OF FILE 
OPTION THIS ROUTINE 
WILL REWIND THE UNIS¬ 
ERVO SPECIFIED IN THE 
V ADDRESS OF G AND 
COME TO AN MSO STOP 
WITH PAK EQUAL TO 4000 
AS ITS SUCCESS STOP 
IF A HIGH ORDER BIT IS 
PLACED IN THE Q REGIS¬ 
TER IN ADDITION TO THE 



41724 

16 

32000 

41725 


41725 

11 

31000 

31000 


41726 

32 

41732 

00000 


41727 

22 

00000 

31000 


41730 

16 

41727 

41725 


41731 

56 

00000 

41724 


41732 

00 

00000 

00001 


41733 

54 

32000 

00017 


41734 

15 

32000 

41735 


41735 

11 

32000 

31000 


41736 

32 

41741 

00071 


41737 

15 

41734 

41735 


41740 

56 

00000 

4173 3 


41741 

00 

00001 

00000 


41712 

35 

41723 

41720 


41713 

34 

41723 

00000 


41714 

55 

31000 

00043 


41715 

44 

41717 

41716 


41716 

23 

32000 

32000 


4-1717 

75 

17777 

41721 


41720 

35 

31000 

41721 


41721 

16 

41717 

41720 


41722 

45 

00000 

40034 


41723 

35 

31000 

00001 


41742 

75 

30024 

00010 


41743 

11 

41744 

00010 

41744 

00010 

44 

00012 

00011 

41745 

00011 

16 

00023 

00021 

41746 

00012 

55 

31000 

00030 

41747 

00013 

37 

00020 

00015 

41750 

00014 

44 

00015 

00013 

41751 

00015 

23 

00027 

00032 

41752 

00016 

23 

00030 

00032 



TAG OR CLEAR CORE/DRUM 


EJ 

P+2 

40034B 

RJ 

L 

L+i 

MJ 


L + l 

EF 


P 

RP 

120 

L+2 

EW1 


PI 

EF 


P + 1 

MJ 


QJ 


P B 020064740000 

R 020020140000 

R 020020000000 

B12 1 

PI B 606060606060 

END- 
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UN I SERVO NUMBER A FIXED 
BLOCK (120 WORDS OF 
606060606060) WILL BE 
WRITTEN ON THE SPEC¬ 
IFIED UNISERVO PRIOR 
TO REWINDING 
THE ABOVE FOUR ROUTINES 
MAY BE SELECTIVELY 
RESTORED FROM THE 
LIBRARY TAPE IF THEY 
SHOULD BE DESTROYED BY 
PLACING THE CODE WORD 
IN A AND PAK TO 40000 


41753 00017 43 00031 40034 

41754 00020 37 00020 00021 

41755 00021 45 00000 00022 

41756 00022 17 00000 00027 

41757 00023 75 00170 00025 

41760 00024 77 10000 00033 

41761 00025 17 00000 00030 

41762 00026 45 00000 00014 

41763 00027 02 00647 40000 

41764 00030 02 00201 40000 

41765 00031 02 00200 00000 

41766 00032 00 OOOCO 10000 

41767 00033 60 60606 06060 



1103AF-OPS-OOOOIS 


NAME: 


FUNCTION* 


OPERATING 

INSTRUCTIONS: 


CODE: 


STOPS: 


COMMENTS: 


CARD-TO-TAPE SIMULATOR 


To simulate Card-to-Tape equipment. 

1. Clear console. 

2. Set PAK - 1*0026. 

3. Set - Q 0 = output tape unit. 

U* Place cards in Bull reau noj^er, cycle 1 card. 
5. Depress start button. 

26 , 


PAK = 1*0007, Success stop. 

This routine is an 80-80 simulation of the Card-to-Tape 
Converter. It translates all card punch combinations 
into the same XS3 codes as the Card-to-Tape. In case 
of a mispick during simulation, reposition the mispicked card 
ana start at OOOll* for recovery. 
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CARD TO-TAPE SIMULATOR 



SETL 


250B ) 

TWO CORE MACHINE 






SAVER 

RSRV 

240B ) 

240B ) 


00010 

00250 




BIN 

RSR V 

84 

84 


00250 

00510 




RAUS 

RSRV 

20 

20 


00374 

00634 




RUF 

RSRV 

2 

2 


00420 

00660 




AUS 

RSRV 

3360 

3360 


00422 

00662 





SETL 

5 2 5 5 2 B ) 

52552B) 

C-T-T SIMULATOR 






Dr r 

UO ! 

RPR. 

200 

SUSN 



52552 

75 

30310 

00010 


TP 

L + l 

SUSN 



52553 

11 

52554 

00010 


SETL 


0001 OB) 







SUSN 

LG 

0 

12 

PICK UP 

52554 

00010 

55 

31000 

00014 


. RA 

C8 

Q 

UN I SERVO 

52555 

00011 

21 

00153 

31000 


RA 

C8 A 

Q 

NUMBER 

52556 

00012 

21 

00154 

31000 


MJ 


EF 


52557 

00013 

45 

00000 

00016 


RPB 

240B) 

L+2 

EF FOR CARD READ 

52560 

00014 

75 

30240 

0C016 


TP 

SAVER 

EF 

SET UP RETURN EXIT 

52561 

00015 

11 

00250 

00016 

EF 

EF 


Cl 

CLEAR WORKING 

52562 

00016 

17 

00000 

00144 


RJ 

FI N I 

L + l 

STORAGE 

52563 

00017 

37 

00114 

00020 


RPV 

104 

L+2 

THESE 

52564 

00020 

75 

10150 

00022 


TP 

L (0 5 

BIN 

COMMANDS 

52565 

00021 

11 

00231 

00510 


TP 

CO+1 

1X12 

RESTORE THE 

52566 

00022 

11 

00160 

00226 


TV 

C 5 

OJT1 

CARD READ 

52567 

00023 

16 

00150 

00037 


TU 

C5 

EOT 

AND STORAGE SETUP 

52570 

00024 

J. > 

00150 

00073 


TU 

C6 

C4 

FOR THE NEXT 

52571 

00025 

i ^ 

00151 

00147 


TU 

EJT 

STOR1 

CARD 

52572 

00026 

15 

0 0 C 7 5 

00102 


TU 

C7 

STOR2 

SAVE COLS. 73-80 

52573 

00027 

15 

00152 

00104 


TU 

EJT 

QJT1 

COLS. 1-36 TO Q 

52574 

00030 

15 

00075 

00037 

ER 

ER 


BUF + 1 

COLS. 37-72 SAVE 

52575 

00031 

76 

00000 

00661 


ER1 


Q 

SET EXIT FOR RETURN 

52576 

00032 

76 

10000 

31000 


ER1 


BUF 

SET TO TEST 36 BITS 

52577 

00033 

76 

10000 

00660 


RJ 

RJ2 

IXSET 

TEST FOR BIT 

52600 

00034 

37 

00043 

00035 

IXSET 

TP 

L ( 3 5 ) 

1X36 

IF YES ADD ROW VALUE 

52601 

00035 

11 

00232 

00227 

GJT 

QJ 

L + l 

L + 2 

AND IN EITHER CASE BUMP 

52602 

00036 

44 

00037 

00040 

QJT1 

RA 

BIN 

CO 

STORAGE ADDRESS BY 1 

52603 

00037 

21 

00510 

00157 


RA 

0JT1 

L!1OOOOOB) 

RETURN AND PROCESS COLS. 

52604 

00040 

21 

00037 

00233 

IXJ 

IJ 

1X36 

QJT 

37-72 

52605 

00041 

41 

00227 

00036 


TP 

BUF 

Q 

PREPARE TO PROCESS 

52606 

00042 

11 

00660 

31000 

RJ2 

RJ 

RJ2 

IXSET 

COLS. 

52607 

00043 

37 

00043 

00035 
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CARD TO-TAPE SIMULATOR 



TP 

CO+5 

1X36 

73-80 

52610 

00044 

11 

00164 

00227 


LQ 

BUF+1 

28 

BUMP ROW VALUE 

52611 

00045 

55 

00661 

00034 

RJ3 

RJ 

RJ2 

OJT 

AND PROCESS NEXT ROW 

52612 

00046 

37 

00043 

00036 


RA 

OJT1 

L ( 1) 

TALLY FOR EACH CARD 

52613 

00047 

21 

00037 

00234 


I J 

1X12 

ER-1 

TEST 

52614 

00050 

41 

00226 

00030 


RA 

XN 

HI) 

TO DETERMINE 

52615 

00051 

21 

00225 

00234 

ZT ST 

SP 

BIN + 6 

6 5 

IF THE LAST CARD 

52616 

00052 

31 

00516 

00006 


SA 

BIN+7 

6 

TEST FOR FULL BUFFER 

52617 

.00053 

32 

00517 

00006 


SA 

BIN + 8 


IF IT IS EITHER SET 

52620 

00054 

32 

00520 

00000 


EJ 

ZTST1 

ISEO 

PROPER EXIT AND SET 

52621 

00055 

43 

00156 

00065 


I J 

1X500 

NEQU 

EXIT FOR OUTPUT 

52622 

00056 

41 

00230 

00063 


TP 

L{503 ) 

1X500 

IF 

52623 

00057 

11 

00235 

00230 


TV 

Cl 

FINI 

NOT 

52624 

00060 

16 

00152 

00114 


RJ 

WR IT 

EQTF 

CONTINUE 

52625 

00061 

37 

00143 

00072 


MJ 


EF 

TO 

52626 

00062 

45 

00000 

00016 

NEQU 

EF 


Cl 

PROCESS 

' 52627 

00063 

17 

00000 

00144 


MJ 


EQTF 

CARDS 

52630 

00064 

45 

00000 

00072 

I SEQ 

TV 

Cl 

FINI 

MAXIMUM 

52631 

00065 

16 

00152 

00114 


RJ 

WRIT 

EQTF 

NUMBER OF CARDS IN 

52632 

00066 

37 

00143 

00072 


EF 


C8 A 

BUFFER EQUALS 500 

52633 

00067 

17 

00000 

00154 


RS 

0 

Q 


52634 

00070 

23 

31000 

31000 


MS 


40007B) 

TEST 

52635 

00071 

56 

00000 

40007 

EQTF 

TP 

CO+1 

1X12 

EACH INPUT CONFIGURATIO 

52636 

00072 

11 

00160 

00226 

EOT 

SP 

EQ 


FOR A SPECIAL CHARACTER 

52637 

00073 

31 

00173 

00000 


RPU 

80 

EQSU 

AND IF THERE IS ONE 

52640 

00074 

75 

20120 

00076 

EJT 

EJ 

BIN 

EQS 

SUBSTITUTE THE PROPER 

52641 

00075 

43 

00510 

00115 

EOSU 

RA 

EOT 

L(100000B) 

CODE 

52642 

00076 

21 

00073 

00233 


RA 

C4 

L(100000B) 

EACH CHARACTER IS IN A 

52643 

00077 

21 

00147 

00233 


IJ 

1X12 

EQT 

SEPARATE CELL AT THIS 

52644 

00100 

41 

00226 

00073 


TP 

L {13 ) 

1X36 

TIME. 

52645 

00101 

11 

00236 

00227 

STOR1 

SP 

BIN 

6 

THIS 

52646 

00102 

31 

00510 

00006 


RPU 

5 

ST0R3 

SECTION COMBINES 

52647 

00103 

75 

20005 

00105 

STOR2 

SA 

B'IN + 1 

6 

6 CHARACTERS 

52650 

00104 

32 

00511 

00006 

STOR3 

LT 

30 

AUS 

IN EACH CELL READY 

52651 

00105 

22 

00036 

00662 


RA 

STOR1 

L(6000008) 

FOR OUTPUT ON TAPE 

52652 

00106 

21 

00102 

00237 


RA 

STOR2 

L(600000B) 

TRANSFER ENTIRE 

52653 

00107 

21 

00104 

00237 


RA 

STOR3 

L( 1 ) 

ROUTINE TO A BUFFER SO 

52654 

00110 

21 

00105 

00234 


I J 

1X36 

ST0R1 

IT MAYBE RESTARTED 

52655 

00111 

41 

00227 

00102 
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RPB 

240B) 

L+2 

SUBSTITUTE PROPER 

52656 

00112 

75 

30240 

00114 


TP 

EF 

SAVER 

SPECIAL CHARACTER 

52657 

00113 

11 

00016 

002 50 

FINI 

MJ 



CODE 

52660 

00114 

45 

00000 

00000 

EQS 

SP 

C3 



52661 

00115 

31 

00146 

00000 


SS 

Q 



52662 

00116 

34 

31000 

00000 


AT 

C4 

TCMP 

TAPE OUTPUT SECTION 

52663 

00117 

35 

00147 

00120 

TCMP 




DETERMINE 

52664 

00120 

00 

00000 

00000 


MJ 


EQT 

NUMBER OF WORDS TO BE 

52665 

00121 

45 

00000 

00073 

WRITE 

SP 

XN 


WRITTEN* MUST BE 

52666 

00122 

31 

00225 

00000 


DV 

L (6) 

Q 

MULTIPLES 

52667 

00123 

73 

00240 

31000 


ZJ 

L+l 

L+4 

OF SIX 

52670 

00124 

47 

00125 

00130 


TN 

A 

A 

THEN 

52671 

00125 

13 

32000 

32000 


SA 

XN 


TRANSFER 

52672 

00126 

32 

00225 

00000 


AT 

L C 6) 

XN 

14 WORDS 

52673 

00127 

35 

00240 

00225 


IJ 

XN 

L + l 

TO OUTPUT 

52674 

00130 

41 

00225 

00131 


EF 


C8 

BLOCKETTE 

52675 

00131 

17 

00000 

00153 


RPB 

14 

L+2 

AND SETUP 

52676 

00132 

75 

30016 

00134 

PI UP 

TP 

AUS 

RAUS 

WRITE 

52677 

00133 

11 

00662 

00634 


RPV 

20 

L+2 

ROUTINE 

52700 

00134 

75 

10024 

00136 

WR 

EW1 


RAUS 

FOR NEXT 

52701 

00135 

77 

10000 

00634 


RA 

PI UP 

L(1600000B) 

WRITE 

52702 

00136 

21 

00133 

00241 


I J 

XN 

PIUP-1 


52703 

00137 

41 

00225 

00132 


TV 

C2 

ST0R3 


52704 

00140 

16 

00145 

00105 


TU 

C2 

PIUP 

READS 80 

52705 

00141 

15 

00145 

00133 


EF 


C9 

COLUMNS OF 

52706 

00142 

17 

00000 

00155 

WRIT 

MJ 


EF+1 

ALPHABETIC* 

52707 

00143 

45 

00000 

00017 

Cl 

8 

400000000005 


NUMERIC INFORMATION 

52710 

00144 

40 

00000 

00005 

C2 


AUS 

AUS 

PLUS SPECIAL 

52711 

00145 

00 

00662 

00662 

C3 

B 

20117 


CHARACTERS AS 

52712 

00146 

00 

00000 

20117 

C4 

TP 

EQSUB 

BIN 

DESIGNATED BY THE 

52713 

00147 

11 

00207 

00510 

C5 


EO 

CO 

SLAP ASSEMBLY 

52714 

00150 

00 

00173 

00157 

C6 


EQSUB 

RAUS 

PROGRAM AND 

52715 

00151 

00 

00207 

00634 

Cl 


BIN + 1 

WRITE 

CREATES AN 

52716 

00152 

00 

00511 

00122 

C8 

B 

020004600000 


80-80 XS-3 

52717 

00153 

02 

00046 

00000 

C8 A 

R 

020020000000 


TAPE ON A 

52720 

00154 

02 

00200 

00000 

C9 

B 

020060000000 


DESIGNATED 

52721 

00155 

02 

00600 

00000 

UAD 

EOLS 

L(IOOOOB) 


UNISERVO 






ZTST1 

B 

305027 


BLANKS 

52722 

00156 

00 

00003 

05027 
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CO 

B 

14 

ARE 

52723 

00157 

00 

00000 

00014 


R 

13 

READ 

52724 

00160 

00 

00000 

00013 


B 

12 

AS 

52725 

00161 

00 

00000 

00012 


B 

11 

ZEROS 

52726 

00162 

00 

00000 

00011 


B 

10 

MISPICK* RESTART AT 

52727 

00163 

00 

00000 

00010 


B 

7 

CELL 14 

52730 

00164 

00 

00000 

00007 


B 

6 


52731 

00165 

00 

00000 

00006 


B 

5 


52732 

00166 

00 

00000 

00005 


B 

4 


52733 

00167 

00 

00000 

00004 


0 

60 


52734 

00170 

00 

00000 

00060 


B 

40 


52735 

00171 

00 

00000 

00040 


B 

20 


52736 

00172 

00 

00000 

00020 

EQ 

B 

20 


52737 

00173 

00 

00000 

00020 


B 

40 


52740 

00174 

00 

00000 

00040 


B 

60 


52741 

00175 

00 

00000 

00060 


B 

102 


52742 

00176 

00 

00000 

00102 


B 

62 


52743 

00177 

00 

00000 

00062 


B 

21 


52744 

00200 

00 

00000 

00021 


B 

101 


52745 

00201 

00 

00000 

00101 


B 

41 


52746 

00202 

00 

000.00 

00041 


B 

100 


52747 

00203 

00 

00000 

00100 


B 

42 


52750 

00204 

00 

00000 

00042 


B 

61 


52751 

00205 

00 

00000 

00061 


B 

120 


52752 

00206 

00 

00000 

00120 

EGSUB 

R 

63 


52753 

00207 

00 

00000 

00063 


B 

02 


52754 

00210 

00 

00000 

00002 


B 

03 


52755 

00211 

00 

00000 

00003 


B 

17 


52756 

00212 

00 

00000 

00017 


B 

56 


52757 

00213 

00 

00000 

00056 


B 

62 


52760 

00214 

00 

00000 

00062 


B 

21 


52761 

00215 

00 

00000 

00021 


B 

22 


52762 

00216 

00 

00000 

00022 


B 

23 


52763 

00217 

00 

00000 

00023 


B 

43 


52764 

00220 

00 

00000 

00043 


B 

55 


52765 

00221 

00 

00000 

00055 


B 

43 


52766 

00222 

00 

00000 

00043 

RECOl 




52767 

00223 

00 

00000 

00000 

REC02 




52770 

00224 

00 

00000 

00000 
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END 
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1103AF-0P3-000013 


NAME: 

FUNCTION: 

OPERATING 

INSTRUCTIONS: 

CODE: 

STOPS: 

COMMENTS: 


TRACE ROUTINE 

To trace a machine language program* 

1* Load program to be traced* 

2* Place trace control card in Bull and cycle once* 
3. Set PAK - 1 * 0030 . 

1** Depress start* 

30. 

None* 

Core cells 15500-16100 and drum cells 53011-531*10 are 
used by this routine. 
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SETL 

55150B ) 

551508} 








RPB 

300 

CRDRED 



55150 

75 

30454 

55152 


TP 

L+l 

CRDRED 



55151 

11 

55152 

15537 


SETL 


15500B) 







BUF 

RSRV 


20 

INPUT-OUTPUT BUFFER 






BEGIN 

RSRV 


1 

PROGRAM START ADDRESS 






ST 

RSRV 


1 

TRACE 






ST 1 

RSRV 


1 

START 






ST2 

RSRV 


1 

ADDRESSES 






STS 

RSRV 


1 







ST 4 

RSRV 


1 







ENDOUT 

RSRV 


5 

TRACE STOP ADDRESSES 






CRDRED 

EF 


EFA 

READ TRACE CONTROL CARD 

55152 

15537 

17 

00000 

16100 


RPV 

20 

L+2 

CLEAR INPUT-OUTPUT 

55153 

15540 

75 

10024 

15542 


TP 

L (0 ? 

BUF 

BUFFER REGION 

55154 

15541 

11 

16122 

15500 


TP 

L ( 9 ) 

BUF+12 

INDEX TO READ TEN ROWS 

55155 

15542 

11 

16123 

15514 


TP 

L (4) 

BUF+13 

INDEX FOR STORING CARD 

55156 

15543 

11 

16124 

15515 


TP 

L (15 

BUF+17 

INDEX FOR ROW 11 AND 12 

55157 

15544 

11 

16125 

15521 

LOOP 

ER 


Q 

DISCARD COLUMNS 73 TO 8 

55160 

15545 

76 

00000 

31000 


ER1 


BUF+18 

READ COLUMNS 1 THRU 36 

55161 

15546 

76 

10000 

15522 


ER1 


BUF+19 

READ COLUMNS 37 THRU 72 

55162 

15547 

76 

10000 

15523 


TU 

CBUF 

LOOPA 

SET ADDER LOOP 

55163 

15550 

15 

16116 

15557 


TU 

CBUF 

LOOPB 

FOR FIRST WORD 

55164 

15551 

15 

16116 

15561 


TP 

L {1 ) 

BUF+16 


55165 

15552 

11 

16125 

15520 

ALOOP 

TP 

L (2) 

BUF+15 

3 FIELDS FOR EACH SIDE 

55166 

15553 

11 

16126 

15517 


TP 

L (11) 

BUF+14 

12 DIGITS EACH FIELD 

55167 

15554 

11 

16127 

15516 

BLOOP 

TP 

BUF+18 

Sjf 

ROW IMAGE TO Q 

55170 

15555 

11 

15522 

31000 


QJ 

L+l 

L+2 

TEST FOR BIT IN IMAGE 

55171 

15556 

44 

15557 

15560 

LOOPA 

RA 

BUF 

COST 

IF BIT ADD ROW VALUE 

55172 

15557 

21 

15500 

16104 


TP 

Q 

BUF+18 

IN EITHER CASE SAVE Q 

55173 

15560 

11 

3100C 

15522 

LOOPB 

LG 

BUF 

3 

AND SHIFT WORD 

55174 

15561 

55 

15500 

00003 


IJ 

BUF+14 

BLOOP 

DO TWELVE DIGITS 

55175 

15562 

41 

15516 

15555 


RA 

LOOPA 

L(100000B) 

BUMP ADDER LOOP FOR 

55176 

15563 

21 

15557 

16130 


RA 

LOOPB 

L(100000B} 

NEXT WORD 

55177 

15564 

21 

15561 

16130 


I J 

SUF+15 

BLO0P-1 

60 BACK FOR WORDS 2 AN 3 

55200 

15565 

41 

15517 

15554 


TP 

BUF+19 

BUF+18 

SETUP FOR IMAGE OF 37-72 

55201 

15566 

11 

15523 

15522 


I J 

BUF+16 

ALOOP 

GO BACK FOR WDS.4*5#6 

55202 

15567 

41 

15520 

15553 


RA 

LOOPA 

L (15 

BUMP ROW VALUE TOR NEXT 

55203 

15570 

21 

15557 

16125 


IJ 

BUF+12 

LOOP 

ROW AND PROCESS IT 

55204 

15571 

41 

15514 

15545 



MACHINE LANGUAGE TRACE 


ER 

ER1 

ER1 

IJ 

TP 

QT 

LQ 

TP 

QS 

SETUP TP 

SETUPA QT 
LQ 

SETUPB QT 
RA 
RA 
RA 
IJ 

START TP 
TP 
TP 
TP 
TP 
TP 

STA RJ 

TV 
TP 
TP 
SP 
Z J 
TU 
TP 
TV 
TP 
RA 
RA 
RA 
IJ 
RJ 
MJ 


BUF+17 

BUF 

L(77777B) 
BUF 

L(170000B) 
A 

BUF+1 
L(77777B) 

Q 

L(77777RI 

SETUP 

SETUPA 

SETUPB 

BUF+13 

CU 

CV 

CAL 

CAR 

CAQ 

L {0 ) 

RESTX 
BEGIN 
L 14 5 
ST 
Q 

L+l 

A 

FILL 

Q 

RJC 

STA+3 

RJC 

L-5 

IND 

OBEYX 


Q 

Q 

Q 

L-3 

Q 

BEGIN 

A+1S 

Q 

WRT / 

Q 

ENDOUT 

21 

ST 

L { lOOOOOB ) 
L (1) 

L (1 > 

SETUP 

BUF+4 

BUF+7 

BUF+10 

BUF+13 

BUF+16 

BUF+19 

REST 

STAX 

IND 

Q 

15 

STAX-1 
L+l 
ST 
L + l 
FILL 

L(lOOOOOB) 
L C 2} 

L (1) 

STA+3 

OBEY 


STAX 
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DISCARD 

ROWS 

ELEVEN 

AND TWELVE 

PICKUP 

PROGRAM START ADDRESS 
PICKUP 
UNISERVO 
NUMBER 
PICKUP 
TRACE 
CONTROL 
START 
AND 
STOP 

ADDRESSESS 

SETUP 

INDICATIVE 

INFORMATION 

IN 

OUTPUT BUFFER 
CLEAR BUF+19 
SAVE Q AND A 
SET EXIT TO PROGRAM 
THIS 

SUBROUTINE 
SUBSTITUTES A 
RETURN JUMP 
IN EACH 
START 
ADDRESS 
AND 
SAVES 
THE 

ORIGINAL 
COMMANDS 
RESTORE Q AND A 
EXIT TO PROGRAM 


55205 

15572 

76 

00000 

31000 

55206 

15573 

76 

10000 

31000 

55207 

15574 

76 

10000 

31000 

55210 

15575 

41 

15521 

15572 

55211 

15576 

11 

15500 

31000 

55212 

15577 

51 

16131 

15524 

55213 

15600 

55 

15500 

32022 

55214 

15601 

11 

16132 

31000 

55215 

15602 

53 

32000 

55505 

55216 

15603 

11 

15501 

31000 

55217 

15604 

51 

16131 

15532 

55220 

15605 

55 

31000 

00025 

55221 

15606 

51 

16131 

15525 

55222 

15607 

21 

15603 

16130 

55223 

15610 

21 

15604 

16125 

55224 

15611 

21 

15606 

16125 

55225 

15612 

41 

15515 

15603 

55226 

15613 

11 

16060 

15504 

55227 

15614 

11 

16061 

15507 

55230 

15615 

11 

16062 

15512 

55231 

15616 

11 

16063 

15515 

55232 

15617 

11 

16064 

15520 

55233 

15620 

11 

16122 

15523 

55234 

15621 

37 

15734 

15731 

55235 

15622 

16 

15524 

15640 

55236 

15623 

11 

16124 

16120 

55237 

15624 

11 

15525 

31000 

55240 

15625 

31 

31000 

00017 

55241 

15626 

47 

15627 

15637 

55242 

15627 

15 

32000 

15630 

55243 

15630 

11 

30000 

15525 

55244 

15631 

16 

31000 

15632 

55245 

15632 

11 

16066 

30000 

55246 

15633 

21 

15624 

16130 

55247 

15634 

21 

16066 

16126 

55250 

15635 

21 

15630 

16125 

55251 

15636 

41 

16120 

15624 

55252 

15637 

37 

15726 

15723 

55253 

15640 

45 

00000 

00000 



TRANS 


EXIT 


OPT 


RJ 


MACHINE LANGUAGE TRACE 


LQ 

LCTR 

Q+l 5 

TU 

Q 

L + l 

TP 


EXEC 

SP 

LCTR 

21 

LQ 

A 

15 

RPU 

5 

L+4 

EJ 

ENDOUT 

L + l 

RJ 

OBEYX 

OBEY 

MJ 


LCTR 

TP 

EXEC 

Q 

TP 

EXEC 

TEMPA 

TU 

Q 

UP 

LQ 

Q 

15 

TU 

Q 

VP 

SP 

EXEC 


LT 

6 

A 

EJ 

LI17B) 

EXIT+4 

EJ 

L(14B 5 

EXIT+4 

EJ 

L (37B ) 

RJ 

EJ 

L(758) 

RP 

TP 

EXEC 

Q 

QJ 

L + l 

OBEY 

QJ 

OBEY 

L+l 

QJ 

L+5 

L + l 

TV 

VJ 

EXEC 

QJ 

L+l 

OBEY 

QJ 

UVJMP 

L + l 

QJ 

MJMS 

UVJMP 

QJ 

L + l 

OBEY 

QJ 

MJMS 

OBEY 

TV 

VJ 

EXEC 

SP 

EXEC 

21 

LT 


A 

EJ 

BLKTST 

EXIT+4 

LQ 

EXEC 

Q+21 

TV 

Q 

L+3 

SP 

LCTR 


SA 

LID 


TV 

A 

FILL 


PAGE 3 OF 

SETUP PICKUP 
FOR NEXT INSTRUCTION 
TO BE TRACED 
TEST 
FOR 

STOP TRACE 
CONTROL 

RESTORE Q AND A 
EXIT IF STOP COMMAND 
SETUP COMMAND TO 
PRINT OUT 

STORE CONTENTS OF U 
SETUP COMMAND TO 

STORE CONTENTS OF V 
TEST OP FOR SPECIAL 
HANDLING 

IF EF EXIT FROM TRACE 
IF IP EXIT FROM TRACE 
IF RJ GO TO RJ SETUP 
IF RP GO TO RP SETUP 
THIS 
SECTION 
TESTS 
FOR 
ONE 
AND 
TWO 
WAY 
JUMPS 

IF RJ SET V EXIT 
AND TEST FOR 
BLOCKING COMMAND 
IF IT IS EXECUTE IT 
IF NOT 

PICKOFF LINECOUNTER 
BUMP BY 1 
AND SET V 
OF EXIT 


55254 

15641 

55 

16067 

31017 

55255 

15642 

15 

31000 

15643 

55256 

15643 

11 

00000 

15730 

55257 

15644 

31 

16067 

00025 

55260 

15645 

55 

32000 

00017 

55261 

15646 

75 

20005 

15652 

55262 

15647 

43 

15532 

15650 

55263 

15650 

37 

15726 

15723 

55264 

15651 

45 

00000 

16067 

55265 

15652 

11 

15730 

31000 

55266 

15653 

11 

15730 

16121 

5 5267 

15654 

15 

31000 

15735 

55270 

15655 

55 

31000 

00017 

55271 

15656 

15 

31000 

15736 

55272 

15657 

31 

15730 

00000 

55273 

15660 

22 

00006 

32000 

55274 

15661 

43 

16133 

15650 

55275 

15662 

43 

16134 

15650 

55276 

15663 

43 

16135 

15677 

55277 

15664 

43 

16136 

15712 

55300 

15665 

11 

15730 

31000 

55301 

15666 

44 

15667 

15723 

55302 

15667 

44 

15723 

15670 

55303 

15670 

44 

15675 

15671 

55304 

15671 

16 

16077 

15730 

55305 

15672 

44 

15673 

15723 

55306 

15673 

44 

15717 

15674 

55307 

15674 

44 

15721 

15717 

55310 

15675 

44 

15676 

15723 

55311 

15676 

44 

15721 

15723 

55312 

15677 

16 

16077 

15730 

55313 

15700 

31 

15730 

00025 

55314 

15701 

22 

00000 

32000 

55315 

15702 

43 

16103 

15650 

55316 

15703 

55 

15730 

31025 

55317 

15704 

16 

31000 

15707 

55320 

15705 

31 

16067 

00000 

55321 

15706 

32 

16125 

00000 

55322 

15707 

16 

32000 

30000 
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TU 

L (0 ) 

EXEC 

SET EXEC TO ZERO 

55323 

15710 

15 

16122 

15730 


MJ 


OBEY 

JUMP TO EXECUTE COMMAND 

55324 

15711 

45 

00000 

15 723 

RP 

TP 

EXEC 

EXEC-1 

IF AN RP MOVE EXEC TO 

55325 

15712 

11 

15730 

1572 7 


TU 

VP 

RPU 

DUMMY# SAVE V EXIT 

55326 

15713 

15 

15736 

16065 


TV 

LZERO 

EXEC-1 

GIMMICK V ADDRESS 

55327 

15714 

16 

16102 

1572 7 


TU 

LZERO 

UP 

BLANK OUT U PICKUP 

55330 

15715 

15 

16102 

15735 


MJ 


UP 

BYPASS EXECUTION 

55331 

15716 

45 

00000 

15 725 

UVJMP 

TU 

VJ 

EXEC 

SET U EXIT 

55332 

15717 

15 

16077 

15730 


MJ 


OBEY 

JUMP TO EXECUTE COMMAND 

55333 

15720 

45 

00000 

15723 

MJMS 

TV 

VJ 

EXEC 

ON MS OR MJ SET 

55334 

15721 

16 

16077 

15730 


TU 

LZERO 

UP 

U PICKUP TO ZERO 

55335 

15722 

15 

16102 

15735 

OBEY 

SP 

SVAL 

36 

RESTORE AL 

55336 

15723 

31 

16074 

00044 


SA 

SVAR 


AR 

55337 

15724 

32 

16141 

0 0 0 0 G 


TP 

SVQ 

Q 

AND Q 

55340 

15725 

11 

16142 

31000 

OBEYX 

RJ 

L 

L+l 


55341 

15726 

37 

15726 

15 727 


TP 

SVQ 

G 

DUMMY CELL FOR RP*S 

55342 

15727 

11 

16142 

31000 

EXEC 




EXECUTION ADDRESS 

55343 

15730 

00 

00000 

00000 

RFST 

TP 

Q 

SVG 

SAVE Q 

55344 

15731 

11 

31000 

16142 


LTL 


SVAL 

SAVE AL 

55345 

15732 

22 

00000 

16074 


TP 

A. 

SVAR 

SAVE AR 

55346 

15733 

11 

32000 

16141 

RESTX 

RJ 

L 

L + l 


55347 

15734 

37 

15734 

15735 

UP 

TP 


SVU 

SAVE CONTENTS OF U 

55350 

15735 

11 

00000 

16075 

VP 

TP 


SVV 

SAVE CONTENTS OF V 

55351 

15736 

11 

00000 

16076 


MJ 


WTP 

JUMP TO TAPE WRITE 

55352 

15737 

45 

00000 

15747 

VJUMP 

TU 

VP 

TP 

SAVE V EXIT OF ANY JUMP 

55353 

15740 

15 

15736 

16101 


TV 

TP 

JSW 

BUMP JUMP SWITCH 

55354 

15741 

16 

16101 

15754 


TP 

OBEYX-l 

OBEYX+1 

RESTORE RP DUMMY 

55355 

15742 

11 

15725 

15727 


MJ 


EXEC+1 


55356 

15743 

45 

00000 

15 731 

U JUMP 

TU 

UP 

TP 

SAVE U EXIT OF 2 WAY JMP 

55357 

15744 

15 

15735 

16101 


TV 

TP 

JSW 

BUMP JUMP SWITCH 

55360 

15745 

16 

16101 

15754 


MJ 


EXEC+1 


55361 

15746 

45 

00000 

15731 

WTP 

RJ 

XSE 

XS 

CONVERT TO XS-3 

55362 

15747 

37 

16030 

15762 


EF 


WRT 

WRITE ONE 

55363 

15750 

17 

00000 

16072 


RP1 

20 

L+2 

BLOCKETTE OF 

55364 

15751 

75 

10024 

15753 


EW1 


BUF 

OUTPUT TAPE 

55365 

15752 

77 

10000 

15500 


EF 


STAPE 

STOP TAPE 

55366 

15753 

17 

00000 

16073 

JSW 

RJ 

L 

L+l 


55367 

15754 

37 

15754 

15755 


RA 

LCTR 

L ( 1 ) 

BUMP LCTR 

55370 

15755 

21 

16067 

16125 


MJ 


TRANS 

NEXT WORD 

55371 

15756 

45 

00000 

15641 
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J2 

LQ 

TP 

Q+21 


TV 

Q 

LCTR 


MJ 


TRANS 

XS 

LA 

LCTR 

A+15 


TU 

A 

TEMP 


RA 

TEMP 

DBLSP 


RJ 

CNVE 

CNV 


LTL 

6 

BUF 


TP 

TEMPA 

TEMP 


RJ 

CNVE 

CNV 


LTR 

12 

BUF+1 


LTR 

30 

BUF + 2 


LTR 

30 

BUF+3 


LQ 

BUF 

A+6 


LTL 

30 

BUF 


LQ 

BUF+1 

A + 24 


LTL 

12 

BUF+1 


LQ 

BUF+2 

A+6 


LTL 

30 

BUF+2 


LQ 

BUF + 3 

A+6 


LTL 

30 

BUF+3 


TP 

SVU 

TEMP 


RJ 

CNVE 

CNV 


LTL 


BUF+5 


TP 

A 

8UF + 6 


TP 

SVV 

TEMP 


RJ 

CNVE 

CNV 


LTL 


BUF+8 


TP 

A 

BUF+9 


TP 

SVAL 

TEMP 


RJ 

CNVE 

CNV 


LTl, 


BUF+1 


TP 

A 

BUF + 1: 


TP 

SVAR 

TEMP 


RJ 

CNVE 

CNV 


LTL 


BUF+1' 


TP 

A 

BUF+1 


TP 

SVQ 

TEMP 


RJ 

CNVE 

CNV 
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SETUP EXIT 

FROM JUMP 

COMMANDS 

SET UP LCTR FOR 

OUTPUT 

AND ADD DS1 SPACE 
THIS COMMAND TO 
CONVERT 
THIS COMMAND 
TO XS-3 AND STORE 
OP INTO 8UF+1 
U FIELD INTO BUF+2 
V FIELD INTO BUF + 3 
SPLIT OFF HIGH DIGIT 
OF LOCATION 

SPLIT OFF HIGH 4 DIGITS 
OF OPERATION 
SPLIT OFF HIGH DIGIT 
OF U FIELD 
SPLIT OFF HIGH DIGIT 
OF V FIELD 
CONVERT 

CONTENTS OF U 
TO XS3 

STORE IN BUF+5 *6 
CONVERT 

CONTENTS OF V 
TO XS3 

STORE IN BUF+8*9 
CONVERT 

CONTENTS OF AL 

TO XS3 

STORE IN BUF+11*12 
CONVERT 

CONTENTS OF AR 
TO XS3 

STORE IN BUF+14 * 15 
CONVERT 

CONTENTS OF Q 


55372 15757 55 16101 31025 

55373 15760 16 31000 16067 

55374 15761 45 00000 15641 

55375 15762 54 16067 32017 

55376 15763 15 32000 16070 

55377 15764 21 16070 16117 

55400 15765 37 16037 16031 

55401 15766 22 00006 15500 

55402 15767 11 16121 16070 

55403 15770 37 16037 16031 

55404 15771 22 10014 15501 

55405 15772 22 10036 15502 

55406 15773 22 10036 15503 

55407 15774 55 15500 32006 

55410 15775 22 00036 15500 

55411 15776 55 15501 32030 

55412 15777 22 00014 15501 

55413 16000 55 15502 32006 

55414 16001 22 00036 15502 

55415 16002 55 15503 32006 

55416 16003 22 00036 15503 

55417 16004 11 16075 16070 

55420 16005 37 16037 16031 

55421 16006 22 00000 15505 

55422 16007 11 32000 15506 

55423 16010 11 16076 16070 

55424 16011 37 16037 16031 

55425 16012 22 00000 15510 

55426 16013 11 32000 15511 

55427 16014 11 16074 16070 

55430 16015 37 16037 16031 

55431 16016 22 00000 15513 

55432 16017 11 32000 15514 

55433 16020 11 16141 16070 

55434 16021 37 16037 16031 

55435 16022 22 00000 15516 

55436 16023 11 32000 15517 

55437 16024 11 16142 16070 

55440 16025 37 16037 16031 



MACHINE LANGUAGE TRACE 



LTL 


BUF+17 


TP 

A 

BUF+18 

XSE 

MJ 



CNV 

SP 

L (0 5 



LA 

A 

6 


LQ 

TEMP 

3 


QA 

HI) 

A 


SA 

L {3 J 



LQ 

TST 

1 

CNVE 

QJ 

CNV+1 


BLK1 

TP 

ST 

EXEC 


MJ 


BLKOUT 

BLK2 

TP 

ST1 

EXEC 


MJ 


BLKOUT 

BLK3 

TP 

ST2 

EXEC 


MJ 


BLKOUT 

BLK4 

TP 

ST3 

EXEC 


MJ 


BLKOUT 

BLK5 

TP 

ST4 

EXEC 

BLKOUT 

RJ 

RESTX 

REST 


R5 

LCTR 

L (1) 


MJ 


EXIT+6 

RPJ 

TU 

RPU 

TP 


TV 

TP 

JSW 


TP 

OBEYX-l 

OBEYX+1 


MJ 


EXEC+1 

CU 

XS3 

CU) 


CV 

XS3 

(V) 


CAL 

XS3 

(AL) 


CAR 

XS3 

(AR) 


CAQ 

XS3 

(Q) 


RPU 

B 



RJC 

RJ 

LCTR 

BLK1 

LCTR 

MJ 



TEMP 

B 



TST 

B 

377737773777 


WRT 

B 

020006650000 


STAPE 

B 

020060000000 


SVAL 
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TO XS3 

STORE IN BUF+17»18 

CONVERT 12 DIGIT 
NUMBER IN TEMP CELL 
TO XS-3 AND 
LEAVE IN 
ACCUMMULATOR 


THESE BLOCKING 
COMMANDS PLACE 
THE ORIGINAL COMMAND 
IN EXEC WHEN A 
DUMMY RJ APPEARS 
IN A 

SEQUENCE 
OF COMMANDS 
TO BE TRACED 


THIS SEQUENCE 
SETS UP THE 
V JUMP OF A 
REPEAT INSTRUCTION 
INDICATIVE 
INDICATIVE 
INDICATIVE 
INDICATIVE 
INDICATIVE 


LOOP TESTER 
WRITE OUTPUT TAPE 
STOP TAPE 
THIS ROUTINE 


55441 

16026 

22 

00000 

15521 

55442 

16027 

11 

32000 

15522 

55443 

16030 

45 

00000 

00000 

5 5444 

16031 

31 

16122 

00000 

55445 

16032 

54 

32000 

00006 

55446 

16033 

55 

16070 

00003 

55447 

16034 

52 

16137 

32000 

55450 

16035 

32 

16140 

00000 

55451 

16036 

55 

16071 

00001 

55452 

16037 

44 

16032 

00000 

55453 

16040 

11 

15525 

15730 

55454 

16041 

45 

00000 

16 0 5 1 

55455 

16042 

11 

15526 

15730 

55456 

16043 

45 

00000 

16051 

55457 

16044 

11 

15527 

15 730 

55460 

16045 

45 

00000 

16051 

55461 

16046 

1 1 

1 5530 

15 730 

55462 

16047 

45 

00000 

16051 

55463 

16050 

11 

15531 

15730 

55464 

16051 

37 

15734 

15731 

5 5465 

16052 

23 

16067 

16125 

55466 

16053 

45 

00000 

15652 

55467 

16054 

15 

16065 

16101 

55470 

16055 

16 

16101 

15754 

55471 

16056 

11 

15725 

15727 

55472 

16057 

45 

00000 

15731 

55473 

16060 

00 

00176 

74300 

55474 

16061 

00 

00177 

04300 

55475 

16062 

00 

17244 

64300 

55476 

16063 

00 

17245 

44300 

55477 

16064 

00 

00175 

34300 

55500 

16065 

00 

00000 

00000 

55501 

16066 

37 

16067 

16040 

55502 

16067 

45 

00000 

00000 

55503 

16070 

00 

00000 

00000 

55504 

16071 

37 

77377 

73777 

55505 

16072 

02 

00066 

50000 

55506 

16073 

02 

00600 

00000 

55507 

16074 

00 

00000 

00000 
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svu 




AND IS CALLED 

55510 

16075 

00 

00000 

00000 

svv 




INTO CORE 

55511 

16076 

00 

00000 

0 Q 0 0 0 

VJ 


U JUMP 

V JUMP 

WHEN USED 

55512 

16077 

00 

15744 

15740 

EF A 

B 

400000000005 


THE PROGRAMMER 

55513 

16100 

40 

00000 

0000 5 

TP 



J2 

CANNOT USE 

55514 

16101 

00 

00000 

15757 

LZERO 


LiO ) 

RPJ 

THE CORE 

55515 

16102 

00 

16122 

16054 

8LKTST 


378) 

LCTR 

AREA 

55516 

16103 

00 

00037 

16067 

COST 




WHERE 

55517 

16104 

00 

00000 

00000 





THIS 

55520 

16105 

00 

00000 

0000 0 


B 

700000000000 


ROUTINE 

55521 

16106 

70 

00000 

00000 


B 

600000000000 


WILL 

55522 

16107 

60 

00000 

00000 


B 

500000000000 


WORK 

55523 

16110 

50 

00000 

00000 


B 

400000000000 


ALL 

55524 

16111 

40 

00000 

00000 


B 

300000000000 


OUTPUT 

55525 

16112 

30 

00000 

00000 


B 

200000000000 


FROM 

55526 

16113 

20 

00000 

00000 


B 

100000000000 


THE 

55527 

16114 

10 

00000 

00000 


B 



TRACE 

55530 

16115 

00 

00000 

00000 

CBUF 


BUF 


IS 

55531 

16116 

00 

15500 

00000 

DBLSP 

B 

370000000000 


IN 

55532 

16117 

37 

00000 

00000 

IND 




OCTAL 

55533 

16120 

00 

00000 

00000 

TEMP A 




NOTATION 

- 55534 

16121 

00 

00000 

00000 




CONSTANT P 

OOL L(0) 

55535 

16122 

00 

00000 

00000 





L (9 ) 

55536 

16123 

00 

00000 

00011 





L (4) 

55537 

16124 

00 

00000 

00004 





L (1 ) 

55540 

16125 

00 

00000 

00001 





L (2 ) 

55541 

16126 

00 

00000 

00002 





L 111) 

55542 

16127 

00 

00000 

00013 





L(1000008) 

55543 

16130 

00 

00001 

00000 





L{77777B) 

55544 

16131 

00 

00000 

77777 





L(170000B) 

55545 

16132 

00 

00001 

70000 





L ( 17B) 

55546 

16133 

00 

00000 

00017 





L(14B) 

55547 

16134 

00 

00000 

00014 





L(37B) 

55550 

16135 

00 

00000 

00037 





L(75B) 

55551 

16136 

00 

00000 

00075 





L (7) 

55552 

16137 

00 

00000 

00007 





L ( 3 ) 

55553 

16140 

00 

00000 

00003 




UNDEFINED 

TAGS SVAR 

55554 

16141 

00 

00000 

00000 





SVQ 

55555 

16142 

00 

00000 

00000 


END 



SECTION III 


ARITHMETIC SUBROUTINES 



SUBROUTINE INDEX 


(F.P.) = Floating Point 
(S.P.) a Stated Point 


1103AF 

DESCRIPTION 

TAG 

AUTHOR 

DETAGGED 


STORAGE 

SUBR 






COMMENTS 

00001S 

STANDARDIZATION OF SUBROUTINES 


Systems Dev. 




00002S 

Sine (F.P.) 

Cosine (F.P.) 

SINE 

COSINE 

Systems Dev. 
Systems Dev, 

X 

78 

One common de< 

00003S 

Square Root (F.P.) 

SQROOT 

Systems Dev. 

X 

61 


OOOOliS 

Exponential Function (F.P.) 

EXP 

Systems Dev. 

X 

69 


00005s 

Natural Logarithm (F.P.) 

LNX 

Systems Dev. 

X 

77 


00006s 

Arctangent (F.P.) 

ARCTAN 

Systems Dev. 

X 

87 


00007s 

Arcsine (F.P.) 

ARCSIN 

D. L. Richards 

X 

68 

1 

Needs SSQRT 

00008s 

Arcosine (F.P.) 

ARCOS 

D. L. Richards 

X 

69 

Needs SSQRT 


Sine (S.P.) 

SSIN 

D. L. Richards 

X 

U 7 


00010 S 

Cosine (S.P.) 

SCOS 

D. L. Richards 

X 

U 9 


00011s 

Square Root (S.P.) 

SSQRT 

D. L. Richards 

X 

U 8 


00012S 

Exponential Function (S.P.) 

SEXP 

D. L. Richards 

X 



00013s 

Natural Logarithm (S.P.) 

SLNX 

D. L. Richards 

X 

52 


oooiUs 

Arcsine (S.P.) 

SARCSN 

D. L. Richards 

X 

77 


00015s 

1 

Arcosine (S.P.) 

SARCOS 

D. L. Richards 

X 

79 


00016s 

Arctangent (S.P.) 

SARCTN 

D. L. Richards 

X 

h9 


00017P 

Print Edit 

PREDIT 

A. Podvin 

X 

520 


00018s 

Variable Field Card Read 

VARAB 

Systems Dev. 

X 

393 


00019s 

Variable Field Card Read 
(Tape Mode) 

VARCAR 

Systems Dev. 

X 

377 


00020s 

Read Floating Decimal Tape 

RBFLDC 

Systems Dev. 

X 

23U 


00021s 

Write Floating Decimal Tape 

! 

WFLDEC 

Systems Dev. 

X 

326 







SUBROUTINE INDEX 


-2- 


1103AF 

SUBR 

00022S 

00023S 

0002UP 


DESCRIPTION 

Read Binary Cards 
Punch Binary Cards 
Complex Arithmetic Package 


TAG 


RDBIN 

PCHBIN 


DETAGGED 


AUTHOR 


Systems Dev. 
Systems Dev. 


STORAGE 


68 

215 


COMMENTS 


CMPLX 


D. N. Williams 


1U6 


May need SINE, 
COSINE, SQROOT 
ARCTAN 


9 


0002 

00026P 

00027P 

00028P 


Determinant Evaluator 
(Complex Floating Point) 

Matrix Card Read 


Determinant Evaluator (F.P.) 

Linear Matrix Equation Solver 
and Matrix Inverter (F.P.) 


00029P 

00030P 

00031P 

00032P 


Complex Matrix Multiply 

Polynomial Multiply 
Complex Polynomial Multiply 


CPXDET 


M. J. Antchagno 


MA.TRDC 

RLDET 

SIMEQN 

INVERT 

MAIM PC 


F. P. Brown 
M. J. Antchagno 

M. J. Antchagno 

M. J. Antchagno 

M. J. Antchagno 


P0LMUL T. Griffen 
P0LCML T. Griffen 


198 

260 

122 

17ii 

117 


57 


106 


Includes F2 


All error terms refer only to 
used in the subroutine. 


the error due to the numeri 


pal 


method 




1103AF-SUBR-00002S 


1. IDENTIFICATION 

FLOATING POINT SINE, COSINE 
Identification Tag: SINE, COSINE 

DESCRIPTION 

This routine computes the sine (cosine) of a floating point number 
placed in Q. The answer is left in Q. 

CALLING SEQUENCE 

TP L(x) Q 

CALL SINE (COSINE) 

U. CODING INFORMATION 

This routine requires 78 cells, including one temporary and 17 constants. 
Fixed point arithmetic is used. 

$. RESTRICTIONS 

26 

Inputs greater than 2 give zero for an answer; if this occurs Q is cleared 
and AR «= XS3 code for SINE 

Accuracy: Je| <5 x 10”® 

6. ERROR PROCEDURES 


2 . 


3. 


None 



FLOATING 

POINT 

SINE-COSINE 

PAGE 1 

/ 2 

COSINE RJ 

L+14 

L+3 

IDENTIFICATION 

ISC 

TP 

L+61 

Q 


2SC 

M JO 


FILL 

FLOATING POINT SINE 

3SC 

TV 

L-l 

L+6 

COSINE 

4SC 

TP 

L+60 

L+22 


5 SC 

TM 

Q 

Q 

IDENTIFICATION TAGS 

6SC 

M JO 


L+6 


ISC 

SINE MJO 


L+3 

SINE *COSINE 

SS c 

MSO 


L + l 


9SC 

M JO 


FILL 


lose 

TP 

L+40 

L + 16 

DESCRIPTION 

use 

TV 

L-3 

L+3 


12 SC 

TP 

Q 

L+48 

THIS ROUTINE COMPUTES 

13SC 

TM 

a 

A 

THE SI NE {COS INE) OF A 

14SC 

TJ 

L+51 

FILL 

FOATING POINT ARGUMENT 

15 SC 

TJ 

L+51 

L+4 

PLACED IN Q. THE ARGU¬ 

16SC 

RS 

Q 

Q 

MENT MUST BE EXPRESSED 

17SC 

SP 

L+50 


IN RADIANS. THE ANSWER 

18SC 

M JO 


L-10 

IS LEFT IN Q. 

19SC 

LT1 

9 

Q 


20SC 

LTO 


A 


21SC 

SS 

L+47 


CALLING SEQUENCE 

22SC 

AT 

L+47 

L+3 


2 3 SC 

LQ 

0 

35 

TP L{X) Q 

2 4SC 

MP 

Q 

L+46 

CALL SINE 

2 5SC 

SS 

FILL 



26SC 

AT 

FILL 

FILL 

OR 

27SC 

QT 

L+44 

L-2 


2 8SC 

QJ 

L+l 

L+2 

TP L{X) Q 

29SC 

TN 

L+31 

L+31 

CALL COSINE 

30SC 

QJ 

L + l 

L+3 


3 ISC 

SP 

L+32 



32SC 

ST 

L—7 

L-7 

CODING INFORMATION 

33SC 

MP 

L-8 

L-8 


34SC 

LTO 

2 

Q s 

THIS ROUTINE REQUIRES 

35SC 

MP 

Q 

L+37 

78 CELLS * INCLUDING ONE 

36SC 

LTO 

1 

A 

TEMPORARY STORAGE AND 

37SC 

AT 

L+3 6 

L—11 

17 CONSTANTS. FIXED 

38SC 

MP 

Q 

L-12 

POINT ARITHMETIC IS USED 

39SC 



FLOATING POINT SINE-COSINE 
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LTO 

1 

A 

INTERNALLY# 

40SC 

AT 

L+34 

L—14 


41SC 

MP 

Q 

L-l 5 


42SC 

LTO 

2 

A 

RESTRICTIONS 

43SC 

AT 

L+32 

L-17 


44 SC 

MP 

Q 

L—18 

ARGUMENTS PLACED IN Q 

45SC 

LTO 

1 

A 

MUST BE LESS THAN 2 

46SC 

AT 

L+30 

L—20 

RAISED TO THE 26TH POWER 

47 SC 

MP 

L—22 

L-21 

IN ABSOLUTE MAGNITUDE# 

48SC 

2 J 

L+l 

L+l 1 


49SC 

SF 

A 

L+12 

ACCURACY 

50SC 

TP 

A 

Q 


5 ISC 

LA 

Q 

28 

THE ABSOLUTE VALUE OF 

52SC 

LTO 


Q 

THE ERROR IN THE RESULT 

'53SC 

TP 

L+8 

A 

IS LESS THAN 5 TIMES 10 

54SC 

SA 

L+23 

27 

RAISED TO THE POWER -8 

55 SC 

AT 

Q 

Q 

IN ALL CASES# 

56SC 

TP 

L+4 

A 


57SC 

SJ 

L + l 

L+2 


58SC 

TN 

Q 

Q 

ERROR PROCEDURES 

59SC 

M JO 


L-50 


60SC 

B 



AN ARGUMENT GREATER 

61SC 

B 



THAN 2 RAISED TO THE 

62SC 

B 

201400000000 


26TH POWER WILL YIELD A 

63SC 

B 

200000000000 


ZERO RESULT IN Q AND 

64SC 

AT 

L-l 

Q 

CAUSE THE COMPUTER TO 

65SC 

B 

160400000000 


STOP (MSO STOP) LEAVING 

66SC 

B 

233400000000 


THE UNIVAC CODE* 

67SC 

B 

653450300101 



68SC 

B 

201 


653450300101-1 SINE} 

69SC 

SS 

A 

37 


7QSC 

B 

242763015562 


IN AR. DEPRESSING THE 

71SC 

B 

177777777777 


START BUTTON WILL RESULT 

72SC 

B 

000117327564 


IN A NORMAL EXIT FROM 

735C 

B 

775466631633 


THE ROUTINE. 

74SC 

B 

024315053663 



75SC 

B 

532504175124 



76SC 

B 

311037552202 



77SC 

B 

137 



78SC 
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1. IDENTIFICATION 

FLOATING POINT SQUARE ROOT 
Identification Tag: SQROOT 

2. DESCRIPTION 


This routine computes the square root of a floating point number 
placed in Q. The answer is left in Q. 


3. CALLING SEQUENCE 

TP L(x) Q 

CALL SQROOT 

k. CODING INFORMATION 

This routine occupies 61 cells. Fixed point arithmetic is used. 


5. RESTRICTIONS 


Input and output are non-negative floating point numbers. 


Accuracy: 



$ x 10~ 9 


6. ERROR PROCEDURES 


If the input is negative, the code word 65535ii5l!?l66 is placed in A, 
Q is cleared and the routine goes to the error exit. Depressing the 
start button will give a normal exit from the routine. 



FLOATING POINT SQUARE ROOT 


SQROOT MJO 


L+3 

MSO 


L+l 

MJO 


FILL 

TP 

Q 

A 

LTO 

9 

L+34 

ZJ 

L+l 

L-3 

SJ 

L+l 

L+4 

RS 

Q 

Q 

SP 

L+52 


MJO 


L-8 

LQ 

A 

34 

TP 

Q 

L+28 

LTO 

7 

A 

SP 

A 

15 

AT 

L+27 

L+l 

MP 

FILL 

FILL 

LTO 


A 

LO 

Q 

17 

AT 

Q 

L-3 

SP 

L+20 

33 

DV 

-L*5- 

A 

AT 

L—6 

L—6 

LA 

L+16 

35 

TP 

A 

Q 

LTO 


A 

AT 

L+15 

L+13 

QJ 

L+7 

L+l 

MP 

L-12 

L+31 

LT 

1 

L—13 

LT 

1 

Q 

QJ 

L+3 

L+l 

LTO 


L—16 

RS 

L+6 

L+27 

TP 

L—18 

A 

LTO 

28 

A 

LQ 

L+3 

27 
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IDENTIFICATION 

1SQ 


2SQ 

FLOATING POINT SQUARE 

3SQ 

ROOT 

4SQ 


5SQ 

IDENTIFICATION TAG 

6SQ 


7SQ 

SQROOT 

8SQ 


9SQ 


10SQ 

DESCRIPTION 

11SQ 


12SQ 

THIS ROUTINE COMPUTES 

13SQ 

THE SQUARE ROOT OF A 

14SQ 

FLOATING POINT NUMBER 

15SQ 

PLACED IN Q. THE ANSWER 

16SQ 

IS LEFT IN Q. 

17SQ 


18SQ 


19SQ 

CALLING SEQUENCE 

20SQ 


21SQ 

TP L {X ) Q 

22SQ 


23SQ 

CALL SQROOT 

24SQ 


25SQ 


26SQ 

CODING INFORMATION 

27SQ 


28SQ 

THIS ROUTINE OCCUPIES 

29SQ 

61 CELLS. FIXED POINT 

30SQ 

ARITHMETIC IS USED IN¬ 

31SQ 

TERNALLY. 

32SQ 


33SQ 


34SQ 

RESTRICTIONS 

35SQ 


36SQ 
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AT 

Q 

Q 

M JO 


L-35 

MJO 


FILL 

M JO 


FILL 

B 

101 


MP 

L-l 5 

L-2 

B 

374076100764 


B 

364636102726 


B 

356062104635 


B 

347722106511 


B 

342134110335 


B 

334666112133 


B 

327710113705 


B 

323176115434 


R 

316710117140 


B 

312626120623 


B 

306734122267 


B 

303216123714 


B 

277644125322 


B 

274426126713 


B 

271332130267 


B 

266352131626 


B 

265011714640 


B 

1 


B 

655354515166 



INPUT AND OUTPUT ARE 37SQ 

NON-NEGATIVE FLOATING 38SQ 

POINT NUMBERS. 39SQ 

40SG 

41SQ 

ACCURACY 42SO 

43SQ 

THE ABSOLUTE VALUE OF 44SQ 

THE ERROR IN THE RESULT 45SQ 

IS LESS THAN 5 TIMES 10 46SQ 

RAISED TO THE POWER -9 47S0 

IN ALL CASES. 48SQ 

49 SQ 
50SQ 

ERROR PROCEDURES 51SG 

52SQ 

IF THE INPUT IS NEGA- 53SQ 

TIVE THE UNIVAC CODE 54SQ 

655354515166-1SQROOT) 55SG 

IS PLACED IN AR» Q IS 56SQ 

CLEARED AND THE COMPUTER 57SQ 

IS STOPPED. DEPRESSING 58SQ 

THE START BUTTON WILL 59SG 

RESULT IN A NORMAL EXIT 60SQ 

FROM THE ROUTINE. 61SQ 
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1. IDENTIFICATION 

FLOATING POINT EXPONENTIAL 
Identification Tag: EXP 

2. DESCRIPTION 

This routine computes e X where x is a floating point number placed in 
Q. The answer is left in Q« 

3. CALLING SEQUENCE 

TP L(X) Q 
CALL EXP 

iu CODING INFORMATION 

This routine occupies 69 cells. Fixed point arithmetic is used. 

5. RESTRICTIONS 

Input range: -87<X<+ 8?. 

Accuracy: | E |<5 x 10 - ^. 

6. ERROR PROCEDURES 

Underflow gives an answer of zero and takes the normal exit. Overflow 
places the code word 307252010101 in A and 377777777770 in Q and stops 
the error exit. Depressing the start will give a normal exit. 



EXP 


FLOATING 

POINT 

EXPONENTIAL 

PAGE 1 

/ 2 

M JO 


L+3 

IDENTIFICATION 

1EX 

MSO 


L+l 


2EX 

MJO 


FILL 

FLOATING POINT EXPON¬ 

3EX 

TP 

Q 

L+43 

ENTIAL 

4EX 

RS 

Q 

Q 


5EX 

TP 

L+41 

A 

IDENTIFICATION TAG 

6EX 

TJ 

L+41 

L-4 


TEX 

TJ 

L+41 

L+4 

EXP 

8EX 

SP 

L+41 



9EX 

LQ 

L+41 

Q+3 


10EX 

MJO 


L-9 

DESCRIPTION 

HEX 

TM 

A 

A 


12EX 

TP 

L+39 

Q 

THIS ROUTINE COMPUTES 

13EX 

TJ 

L+39 

L-ll 

THE VALUE OF E RAISED TO 

14EX 

LTO 

9 

A 

THE POWER X WHERE X IS 

15EX 

ST 

L+38 

Q 

A FLOATING POINT NUMBER 

16EX 

SA 

L+38 

15 

PLACED IN Q. THE ANSWER 

17EX 

TU 

A 

L+9 

IS LEFT IN Q. 

18EX 

TN 

Q 

A 


19EX 

AT 

L+36 

L+5 


20EX 

LA 

L+26 

9 

CALLING SEQUENCE 

21EX 

LQ 

A 

35 


22EX 

MP 

Q 

L+35 

TP L (X) Q 

23EX 

LTO 

1 

Q 


24EX 

SP 

FILL 


CALL EXP 

25EX 

AT 

Q 

A 


26EX 

LTO 


A 


27EX 

LTO 

9 

L+19 

CODING INFORMATION 

28EX 

LQ 

A 

35 


29EX 

LTO 

4 

A 

THIS ROUTINE OCCUPIES 

30EX 

AT 

L+28 

L+l 1 

69 CELLS OF COMPUTER 

31EX 

QT 

L+19 

Q 

STORAGE. FIXED POINT 

32EX 

MP 

Q 

L+35 

ARITHMETIC IS USED IN¬ 

33EX 

LTO 


A 

TERNALLY. 

34EX 

AT 

L+34 

L-10 


35EX 

MP 

Q 

L-ll 


36EX 



FLOATING POINT EXPONENTIAL 
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LTO 


A 

RESTRICTIONS 

3 TEX 

AT 

L+20 

L—13 


38EX 

SP 
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1. IDENTIFICATION 

FLOATING POINT NATURAL LOGARITHM 
Identification Tags LNX 

2. DESCRIPTION 

This routine computes the natural logarithm of x, where x is a floating 
point number placed in Q. The answer is left in Q. 

3. CALLING SEQUENCE 

TP L(x) Q 

CALL LNX 

li. CODING INFORMATION 

This routine occupies 77 cells. Fixed point arithmetic is used. 

5. RESTRICTIONS 

Input: any floating point number greater than zero. 

Accuracy: j E | < 5 x 10"^ 

6. ERROR FROCEDURES 


If the input is less than or equal to zero, the error exit is used 
A will contain the code word U6£072010101 and Q will be zero* De¬ 
pressing the start button will give a normal exit. 



LOATING POINT NATURAL LOGARITHM 


PAGE 1/2 


M JO 


L+3 

IDENTIFICATION 

1LN 

MSO 


L+l 


2LN 

MJO 


FILL 

FLOATING POINT NATURAL 

3LN 

TP 

Q 

A 

LOGARITHM 

4LN 

SJ 

L+2 

L+l 


5LN 

ZJ 

L+4 

L+l 

IDENTIFICATION TAG 

6LN 

RS 

Q 

Q 


7LN 

SP 

L+50 


LNX 

8LN 

MJO 


L-7 


9LN 

LTO 

9 

L+45 


10LN 

LQ 

A 

35 

DESCRIPTION 

11LN 

TP 

Q 

L+44 


12LN 

RP2 

7 

L+2 

THIS ROUTINE COMPUTES 

13LN 

TJ 

L+46 

L+2 

THE NATURAL LOGARITHM OF 

14LN 

TP 

L+52 

Q 

X* WHERE X IS A FLOATING 

15LN 

SP 

L+52 


POINT NUMBER PLACED IN 

16LN 

ST 

Q 

Q 

G. THE ANSWER IS LEFT IN 

17LN 

SA 

L+51 

15 

Q. 

18LN 

TU 

A 

L+4 


19LN 

TP 

L+35 

A 


20LN 


L +4 9 

3 

CALLING SEQUENCE 

21LN 

AT 

0 

L+33' 


22LN 

TP 

FILL 

Q 

TP L {X 5 Q 

23LN 

SP 

Q 



24LN 

SA 

L+31 

35 

CALL LNX 

25LN 

LTO 


L+31 


26LN 

SP 

L+29 



27LN 

SS 


37 

CODING INFORMATION 

2 8LN 

DV 

L+2 3 

L+28 


29LN 

MP 

0 

0 

THIS ROUTINE OCCUPIES 

30LN 

SS 

A 

31 

77 CELLS OF COMPUTER 

31LN 

MP 

A 

L+40 

STORAGE. FIXED POINT 

32LN 

LT 

1 

A 

ARITHMETIC IS USED IN¬ 

33LN 

AT 

L+39 

L+22 

TERNALLY. 

34LN 

MP 

Q 

L+21 


35LN 

L T 0 


A 


36LN 

AT 

L+?2 

0 

RESTRICTIONS 

37LN 

MP 

0 

L+19 


38LN 

LTO 

3 

A 

RANGE OF ACCEPTABLE IN 

39LN 



• FLOATING POINT NATURAL LOGARITHM 


PAGE 2/2 


MA 

L+15 

L+34 

PUT VALUES IS GIVEN BY 

40LN 

TP 

A 

Q 

THE FOLLOWING STATEMENT• 

41LN 

ZJ 

L+l 

L-39 

X MUST BE GREATER THAN 

42LN 

SF 

A 

L+2 8 

ZERO. 

43LN 

LTO 

28 

0 


44LN 

TP 

L+26 

A 

THE ACCURACY OF THE 

45LN 

TJ 

L+29 

L+2 

ROUTINE IS SUCH THAT THE 

46LN 

SS 

L+29 


ERROR IN THE RESULT IS 

47LN 

AT 

L+29 

L+7 

ALWAYS LESS THAN 5 TIMES 

48LN 

TP 

0 

A 

10 RAISED TO THE POWER 

49LN 

SJ 

L+l 

L+2 

-9 IN ABSOLUTE VALUE* 

5CLN 

TN 

L+4 

L+4 


51LN 

LQ 

L+3 

27 


52LN 

AT 

Q 

Q 

ERROR PROCEDURES 

53LN 

M JO 


L-51 


54LN 

R 



IF X IS LESS THAN OR 

55LN 

TM 

FILL 

FILL 

EQUAL TO ZERO THE COM¬ 

56LN 

TM 

FILL 

FILL 

PUTER WILL STOP LEAVING 

57LN 

B 

465072010101 


THE UNIVAC CODE 

58LN 

B 

200000000000 



59LN 

B 

213453407440 


465072010101-ILNX) 

60LN 

B 

230157701214 



61LN 

B 

245775532516 


IN AR AND ZERO IN Q* DE 

62LN 

B 

265011714640 


PRESSING THE START 

63LN 

B 

305316250212 


BUTTON WILL GIVE A NOR¬ 

64LN 

B 

327211763126 


MAL EXIT WITH ZERO AS 

65LN 

B 

352601433477 


THE ANSWER. 

66LN 

8 

17777 



67LN 

B 

20006 



68LN 



L-10 


69LN 

B 

201 



70LN 

B 




71LN 

B 

063146314632 



72LN 

B 

125252525253 



73LN 

B 

261344137700 



74LN 

B 

44 



75LN 

B 

110 



76LN 

B 

175 



77LN 



1103AF-SUBR-00006S 


1. IDENTIFICATION 
FLOATING POINT ARCTANGENT 
Identification Tag: ARCTAN 

2. DESCRIPTION 

This routine computes the arctangent of x, where x is a floating point 
number placed in Q. The answer, expressed in radians, is left in Q. 

3. CALLING SEQUENCE 

RP L(X) Q 

CALL ARCTAN 

U. CODING INFORMATION 

This routine occupies 87 cells. Fixed point arithmetic is used. 

5. RESTRICTIONS 

The routine gives a 1st quadrant angle for positive arguments and a Uth 
quadrant angle for negative arguments. 

Accuracy: |E j<5 x 10”^ 

6. ERROR PROCEDURES 


None 
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1. IDENTIFICATION 

FLOATING POINT ARCSINE 
D. L. Richards 
Identification Tag: ARCSIN 


2. DESCRIPTION 

This routine computes the arcsine of a floating point argument x. The 

7 

Rand polynomial P(x) = ^ A i/ X / is evaluated for input x. Also 

a=0 

R(x) = Vl-/x/ is evaluated using the SSQRT subroutine. Then if x is 
positive, arcsine x * 77/2 - P(x)R(x); if x is negative, arcsine 

x *-Tf/2 + P(x)R(x). 

The output is an angle from quadrant I or quadrant IV expressed 
in radians and is left in Q. 


3. CALLING SEQUENCE 

TP L(x) Q 

GALL ARCSIN 

k. CODING INFORMATION 

Routine required 68 decimal or 10U octal cells. In addition, the stated 
point square root subroutine SSQRT is called upon and must be included 
with this routine. 

5. RESTRICTIONS 

Form: Input and output are in packed floating point form 
Accuracy: /E/ <2~^ <2 x 10~® 

Range of input: -1 - x ^ 1 

6. ERROR PROCEDURES 

For input out of range, machine stops. 
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1. IDENTIFICATION 

FLOATING POINT ARCOSINE 
D. L. Richards 
Identification Tag: ARCOS 

2. DESCRIPTION 

This routine computes the arcosine of 

7 

Rand polynomial P(x) * A^/x/^ is 

iO 

R(x) ** -/l“/ x / is evaluated using the 
positive, arcosine x * P(x)R(x); if x 

The output is an angle from quadrant I or quadrant II expressed in 
radians and is left in Q. 

3. CALLING SEQUENCE 

TP L(x) Q 

CALL ARCOS 

U. CODING INFORMATION 

Routine requires 69 decimal or 10$ octal cells. In addition, the stated 
point square root subroutine SSQRT is called upon and must be included 
with this routine. 

$. RESTRICTIONS 

Forms Input and output are in packed floating point form 
Accuracy: /E/< 2”^ < 2 x 10'® 

Range of input: -1 - x - 1 

6. ERROR PROCEDURES 


a floating point argument, x. The 

evaluated for input x. Also 

SSQRT subroutine. Then if x is 
is negative, arcosine x * 7T - P(x)R(x). 


For input out of range, machine stops. 



FLOATING 

POINT 

ARCCOSINE 

ARCOS MJ 


L+3 

MS 



MJ 



TP 

Q 

L+64 

TM 

Q 

A 

TP 

L+53 

L+59 

ST 

L+49 

Q 

TJ 

L+54 

L+6 

TJ 

L+54 

L+2 

MJ 


L—8 

QT 

L+47 

L+54 

SP 

Q 

45 

TV 

A 

L+l 

LA 

L+51 


SP 

L+40 


ST 

L+49 

A 

ZJ 

L+l 

L+16 

SJ 

L—16 

L+l 

CALL 

SSQRT 


LT 


L+46 

LT1 

- 

L+46 

TU 

L+42 

L+4 

TP 

L+23 

Q 

MP 

Q 

L+41 

LA 

A 

37 

AT 

L+21 

Q 

RA 

L-l 

L+33 

TJ 

L+15 

L—4 

TP 

Q 

L+40 

SP 

L+3 6 

36 

SA 

L+36 


MP 

A 

L+37 

LT 

5 

L+32 

TP 

L+34 

Q 

QJ 

L+l 

L+3 

SP 

L+21 

1 


PAGE 1/2 


IDENTIFICATION 1AC 

2AC 

FLOATING POINT ARCCOSINE 3 AC 

4AC 

IDENTIFICATION TAG* SAC 

6AC 

ARCOS 7AC 

SAC 

9AC 

DESCRIPTION 10AC 

11 AC 

THIS ROUTINE COMPUTES 12AC 

THE ARCCOSINE OF X* 13AC 

WHERE X IS A FLOATING 14AC 

POINT WORD PLACED IN Q* 15AC 

THE ANSWER» IN RADIANS 16AC 

IS LEFT IN Q* 17AC 

18AC 

19AC 

CALLING SEQUENCE 20AC 

21AC 

TP L{X 5 Q 22AC 

CALL ARCOS 23AC 

2 4AC 
2 SAC 

CODING INFORMATION 26AC 

27AC 

THE ROUTINE OCCUPIES 69 28AC 

CELLS* STATED POINT 29AC 

ARITHMETIC IS USED WITH 30AC 

IN THE ROUTINE. 31AC 

IN ADDITION. THE STATED 32AC 

POINT SQUARE ROOT SUB- 33AC 

ROUTINE IS USED AND MUST 34AC 

BE ASSEMBLED WITH THIS 35AC 

ROUTINE. 36AC 



FLOATING POINT ARCCOSINE 


ST 

L+28 

L+28 

SF 

L+27 

L+26 

2 J 

L+l 

L+6 

LA 

A 

64 

TP 

A 

L+24 

SP 

L+22 

27 

AT 

L+ll 

Q 

CC 

Q 

L+21 

MJ 


L—42 

S43- 

1.2624911 

-3 

S41 

6.6700901 

-3 

S39- 

1.70881256 

-2 

S37 

3.0891881 

-2 

S35- 

5.01743046 

-2 

S33 

8.89789874 

-2 

S31- 

2.145988016 

-1 

S29 

1.570796505 


B 

74000000000 


B 

100000000000 


B 

62000000000 


S31 

1.5707963268 


B 

400777777777 


B 

B 

100000 


B 

1 


B 

44000000000 


B 

117400000001 


MS 

L-17 


RSRV 

5 

5 


PAGE 2/2 


37AC 

38AC 

RESTRICTIONS 39AC 

40AC 

FOR POSITIVE X* THE RE 41AC 

SULT IS A FIRST QUADRANT 42AC 

ANGLE (0 TO PI/2)* IF X 43AC 

IS NEGATIVE THE RESULT 44AC 

IS A QUADRANT II ANGLE* 45AC 

46AC 

THE ABSOLUTE VALUE OF 47AC 

THE ERROR IN THE RESULT 48AC 

IS LESS THAN 2 TIMES 10 49AC 

RAISED TO THE POWER -8. 50AC 

51AC 

THE ACCEPTABLE VALUES 52AC 

OF X RANGE FROM -1 TO 1* 53AC 

54AC 

55AC 

ERROR PROCEDURES 56AC 

57AC 

FOR INPUT NOT IN THE 58AC 

RANGE -1 THRU +1* THE 59AC 

COMPUTER WILL STOP. DE- 60AC 

PRESSING THE START KEY 61AC 

WILL NOT GIVE A NORMAL 62AC 

EXIT. THE CONTENTS OF A 63AC 

AND Q ARE MEANINGLESS. 64AC 

65AC 



1103AF-SUBR-00009S 


1. IDENTIFICATION 

STATED POINT SINE 
D. L. Richards 
Identification Tag: SSIN 

2. DESCRIPTION 

This routine computes the sine of an angle. Input is reduced to a 
positive angle in quadrant I, II, III, or IV; the sign is assigned 
accordingly and the angle transformed to one whose absolute value 
does not exceed ‘ ?T /2. The following polynomial (of Rand type) is 
then applied: 

5 

sin X = A 2i-1 x2i_1 

i=l 

3. CALLING SEQUENCE 

TP L(x) A 

CALL SSIN 

U. SPACE REQUIRED 

U7 decimal or 57 octal cells 

5 . RESTRICTIONS 

Scaling: Input and output are scaled 32 in A. 

Accuracy: / E / ^ 6 x 10“^ 

Range of input: - 27T - x £ 2TT (radians) 

6. ERROR PROCEDURES 

For input out of range, machine stops. 



STATED 

POINT SINE 


PAGE 1 

/ 2 

SSIN MJ 


L+3 

IDENTIFICATION 

1SI 

MS 




2SI 

MJ 



STATED POINT SINE 

3S1 

TP 

L+39 

Q 


4SI 

TJ 

L+29 

L+8 

IDENTIFICATION TAG 

5SI 

QJ 

L+l 

L + 3 


6SI 

DV 

L+27 

Q 

SSIN 

7SI 

SJ 

L+4 

L + 8 


8SI 

ST 

L+2 5 

A 

DESCRIPTION 

9SI 

SJ 

L+2 

L-4 


10SI 

OJ 

L-4 

L + l 

THIS ROUTINE COMPUTES 

11SI 

AT 

L+22 

A 

THE SINE OF X* WHERE X 

12SI 

SJ 

L-2 

L+3 

IS AN ANGLE EXPRESSED IN 

13SI 

TN 

A 

A 

RADIANS IN A-RIGHT. THE 

14S I 

MJ 


L + 5 

RESULT IS LEFT IN 

15SI 

TJ 

L+26 

L+4 

A-RIGHT. 

16SI 

ST 

L+l 9 

A 


17SI 

TJ 

L+24 

L-4 

CALLING SEQUENCE 

18SI 

ST 

L + l 7 

A 


19SI 

TP 

A 

L+28 

TP L(X} A 

20SI 

MP 

L+27 

Q 

CALL SSIN 

2 IS I 

SA 

L + 13 

41 ' 


22SI 

TP 

A 

L+24 

CODING INFORMATION 

23SI 

TP 

L+13 

Q 


24SI 

TU 

L+19 

L+3 

ROUTINE USES 48 CELLS. 

25SI 

MP 

0 

L+21 


26SI 

LT 

1 

A 

RESTRICTIONS 

27SI 

AT 

L+l 0 

Q 


28SI 

RA 

L-l 

L+17 

SCALING. INPUT AND OUT 

29S I 

TJ 

L+l 5 

L-4 

PUT ARE SCALED 32 IN A# 

SOS I 

MP 

Q 

L + 17 


31SI 

LT 

1 

A 

ACCURACY. ABSOLUTE 

32SI 

MJ 


L—30 

VALUE OF ERROR IS AT 

33SI 

B 

311037552421 


MOST 6 TIMES 10 TO THE 

34S1 

B 

10000000000 


-9TH POWER. 

35SI 

B 

144417665210 



36SI 
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B 311037552421 

B 10000000000 

B 144417665210 

B 127234047 

B 774602336021 

B 42103475514 

B 525252560054 

B 377777777511 

B 62207732504 

B 7000000000 

MS L-6 

100000 


RANGE OF INPUT. ABSO- 37CC 

LUTE VALUE OF X MUST NOT 3SCO 

EXCEED 2 PI RADIANS. 39C0 

40CO 

ERROR PROCEDURES 41C0 

42CO 

FOR INPUT OUT OF RANGE» 43C0 

THE COMPUTER STOPS. 44C0 

45CO 

46C0 

47C0 


48CO 

49CO 

50CO 
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1. IDENTIFICATION 

STATED POINT COSINE 
D. L. Richards 
Identification Tag: SCOS 

2. DESCRIPTION 

This routine computes the cosine of an angle. If input is negative, 
”^/2 is added; if it is positive, -3 is added. The result is 
reduced to a positive angle in quadrant I, II, III, or IV; the sign 
is assigned accordingly and the angle transformed to one whose absolute 
value does not exceed FT/2. The following polynomial (of Rand type) is 
then applied to produce the cosine of the original input: 


sin x 


-2 

i=l 


A 


2i-l 


2i-l 


x 


3. CALLING SEQUENCE 

TP L(x) A 

CALL SCOS 

U. SPACE REQUIRED 

k9 decimal or 6l octal cells 


$. RESTRICTIONS 

Scaling: Input and output are scaled 32 in A. 
Accuracy: / E / -6 x 10“^ 

Range of input: - 2IP- x - 2 

6. ERROR PROCEDURES 


For input out of range, machine stops. 



STATED POINT COSINE 


MJ 


L+3 

MS 



MJ 



SJ 

L+2 

L+l 

ST 

L+32 

A 

AT 

L+39 

Q 

TP 

L+39 

Q 

TJ 

L+29 

L+8 

QJ 

L+l 

L+3 

DV 

L+27 

Q 

SJ 

L+4 

L + 8 

ST 

L+2 5 

A 

SJ 

L+2 

L-4 

QJ 

L-4 

L + l 

AT 

L+22 

A 

SJ 

L-2 

L + 3 

TN 

A 

A 

MJ 


L+5 

TJ 

L+26 

L+4 

ST 

L+19 

A 

TJ 

L+2 4 

L-4 

ST 

L+17 

A 

TP 

A 

L+27 

MP 

L+26 

Q 

SA 

L+13 

41 

TP 

A 

L+23 

TP 

L+13 

Q 

TU 

L+19 

L+3 

MP 

Q 

L+20 

LT 

1 

A 

AT 

L+10 

Q 

RA 

L-l 

L+16 

TJ 

L-27 

L-4 

MP 

Q 

L+16 

LT 

1 

A 

MJ 


L-33 
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IDENTIFICATION 
STATED POINT COSINE 
IDENTIFICATION TAG 
SCOS 

DESCRIPTION 

THIS ROUTINE COMPUTES 
THE COSINE OF X« WHERE 
X IS AN ANGLE EXPRESSED 
IN RADIANS IN A-RIGHT» 
THE RESULT IS LEFT IN 
A-RIGHT. 

CALLING SEQUENCE 

TP L ( X ) A 
CALL SCOS 

CODING INFORMATION 

ROUTINE USES 50 CELLS. 

RESTRICTIONS 

SCALING. INPUT AND OUT 
PUT ARE SCALED 32 IN A. 

ACCURACY. THE ABSOLUTE 
VALUE OF THE ERROR IS AT 
MOST 6 TIMES 10 TO THE 
-9TH POWER. 


JL v, w 

2CO 

SCO 

4C0 
SCO 
6CO 
TCO 
8CO 
9CO 
10C0 
11CO 
12 CO 
13CO 
-14C0 
1 SCO 
16CO 
17CO 

1 SCO 
19CO 
20CO 
21CO 
22CO 
23CO 
24CO 
25CO 
26CO 
27CO 

2 SCO 
29CO 
30CO 

3 ICO 
32CO 
33CO 
34CO 
35CO 
36CO 



STATED 

POINT SINE 

PAGE 2 

/ 2 

B 

127234047 

RANGE OF INPUT. ABSO¬ 

37S I 

B 

774602336021 

LUTE VALUE OF X MUST NOT 

38S I 

B 

42103475514 

EXCEED 2 PI RADIANS. 

39SI 

B 

525252560054 


AOS I 

B 

377777777511 

ERROR PROCEDURES 

41SI 

B 

062207732504 


42SI 

B 

7000000000 

FOR INPUT OUT OF RANGE • 

43SI 

MS 

L-6 

THE COMPUTER STOPS. 

44SI 

AT 

1-3 Q 


45SI 

B 

100000 


46SI 

B 



47SI 

B 



48SI 
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1. IDENTIFICATION 

STATED POINT SQUARE ROOT 
D. L. Richards 
Identification Tag: SSQRT 

2. DESCRIPTION 

This routine computes the square root of the argument. A first 
approximation of the form C^(x + C^) + C 2 - (C^/x + C^) is computed 
and the Newton-Raphson formula is applied for one iteration. 

3. CALLING SEQUENCE 

SP L(^) 36 

SA L(xft) 

CALL SSQRT 

U. SPACE REQUIRED 

1*8 decimal or 60 octal cells 

5. RESTRICTIONS 

Scaling: Input and output are scaled 33 in A. 

Accuracy: / E /<Ux8"*^ 

Range of input: 0 ^ x ^ 2 

6 . ERROR PROCEDURES 

For input out of range, machine stops. 



STATED POINT SQUARE ROOT 


MJ 

ka r 


L+3 

no 

MJ 

SJ 

L-2 

L + l 

ZJ 

L + l 

L-2 

SF 

A 

L+39 

TP 

A 

A 

TP 

A 

L+38 

SA 

L+2 6 

54 

TP 

A 

L + 37 

MP 

L+25 

L+36 

AT 

L+2 5 

L+36 

SN 

L+25 

15 

DV 

L+33 

A 

AT 

L+33 

L+32 

SP 

L+30 

32 

SS 

L+3 0 


DV 

L+2 9 

A 

AT 

L+28 

L+28 

LQ 

L+25 

35 

QT 

L+-23 

A 

TV 

A 

L+8 

TP 

L+l 0 

L + 8 

TJ 

L+l 5 

L + 2 

TP 

L+9 

L+6 

QJ 

L+4 

L+l 

MP 

L + l 3 

L+20 

SA 

L + 13 

37 

TP 

A 

L+l 8 

SP 

L+17 


MS 

TP 

A 

A 

MJ 


L-30 

SA 

L+9 

36 

B 

264767031361 


B 

65324 
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IDENTIFICATION 1SR 

STATED POINT SQUARE 2SR 

ROOT 3SR 

4SR 

IDENTIFICATION TAG 5SR 

SSQRT 6SR 

7SR 

DESCRIPTION 8SR 

THIS ROUTINE COMPUTES 9SR 

THE SQUARE ROOT OF X» 10SR 

WHERE X IS A 72 BIT WORD 11SR 

IN A. THE ANSWER IS LEFT 12SR 

IN A. 13SR 

14SR 

CALLING SEQUENCE 15SR 

SP L{XL I 36 16SR 

SP L (XR) 17SR 

CALL SSQRT 18SR 

19SR 

XL - LEFT 36 BITS OF X 20SR 

XR - RIGHT 36 BITS OF X 21SR 

22SR 

CODING INFORMATION 23SR 

ROUTINE USES 48 CELLS* 24SR 

25SR 

RESTRICTIONS 26SR 

SCALING# INPUT AND OUT 27SR 

PUT ARE SCALED 33 IN A. 28SR 

29SR 

ACCURACY. ABSOLUTE 30SR 

VALUE OF ERROR IS LESS 31SR 

THAN 4 TIMES 8 TO THE 32SR 

—11TH POWER. 33SR 

34SR 

RANGE OF INPUT. X MUST 35SR 

BE GREATER THAN OR EQUAL 36SR 



STATED POINT SQUARE.ROOT 

B 114534644516 
B 330657140273 
B 23 

B 265011714640 
B 200000000000 
B 243512563704 
B 377777777777 
B 77 

RSRV 4 4 
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TO ZERO AND LESS THAN 2 37SR 

TO THE 38TH POWER* 38SR 

3 9SR 

ERROR PROCEDURES 40SR 

FOR NEGATIVE INPUT* THE 41SR 

COMPUTER STOPS. 42SR 


43SR 

44SR 

45SR 
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1. IDENTIFICATION 

STATED POINT EXPONENTIAL 
D. L. Richards 
Identification Tag: SEXP 

2. DESCRIPTION 

This routine computes e x for argument x. Numbers q and r are found 
such that x = q(LN 2) + r and /r/ - (LN 2)/ 2. Then e x - 2^ + ^ (e r /2). 
e r /2 is evaluated by seventh order polynomial and shifted left q+1 
places to produce the result. 

3. CALLING SEQUENCE 


SP 

L(x l ) 

36 

SA 

L(%) 


CALL 

SEXP 



U. SPACE REQUIRED 

U5 decimal or 55 octal cells 

5 . RESTRICTIONS 

Scaling: Input and output are scaled 35 in A. 
Accuracy: / E / <(11.3 + -7 /x/ ) 2 “^ e x + 2“-^ 
Range of input: -(LN 2) (2-^ + 2”^)<x<3Uo (LN 2) 

6. ERROR PROCEDURES 

For input out of range, machine stops. 



STATED POINT EXPONENTIAL 


MJ 

MS 

MJ 


L+3 

AT 

L+38 

A 

DV 

L+27 

L+39 

ST 

L+36 

L+39 

TP 

L+26 

Q 

TU 

L+21 

L + 3 

MP 

Q 

L+36 

LA 

A 

37 

AT 


Q 

RA 

L-l 

L+30 

TJ 

L+l 5 

L-4 

RA 

L+30 

L+29 

SJ 

L+l 

L+8 

TV 

L+l 5 

L+4 

AT 

L + 13 

A 

TJ 

L+13 

L+2 

TV 

A 

L + l 

LA 

Q 


TP 

A 

A 

MJ 


L-l 9 

TJ 

L+8 

L+2 

MJ 


L-22 

TV 

A 

L+l 

LA 

Q 


MJ 


L—24 

AT 

L+13 

Q 

MS 

L+5 


B 

110 


B 

44 


B 

261344137677 


B 

15035404 


B 

133323520 


B 

1042101327 


B 

5252506225 
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IDENTIFICATION 1SX 

STATED POINT EXPONEN- 2SX 

TIAL 3SX 

4SX 

IDENTIFICATION TAG 5SX 

SEXP 6SX 

7SX 

DESCRIPTION 8SX 

THIS ROUTINE COMPUTES E 9SX 

TO THE XTH POWER♦ WHERE 10SX 

X IS A 72 BIT NUMBER IN USX 

A* THE RESULT IS LEFT IN 12SX 

A. 13SX 

14SX 

CALLING SEQUENCE 15SX 

SP L{X L) 36 16SX 

SA L{XR) * 17SX 

CALL SEXP 18SX 

19SX 

XL - LEFT 36 BITS OF X 20SX 

XR - RIGHT 36 BITS OF X 21SX 

22SX 

CODING INFORMATION 23SX 

ROUTINE USES 45 CELLS* 24SX 

25SX 

RESTRICTIONS 26SX 

SCALING. INPUT AND OUT 27SX 

PUT ARE SCALED 35 IN A* 28SX 

29SX 

ACCURACY* ABSOLUTE 30SX 

VALUE OF ERROR IS AT 31SX 

MOST (11.3+.7/X/) TIMES 32SX 

2 TO THE — 35TH POWER 33SX 

TIMES E TO THE XTH POWER 34SX 

35SX 

RANGE OF INPUT* X MUST 36SX 



STATED 

POINT EXPONENTIAL 

PAGE 2 

/ 2 

B 

25252525342 

EXCEED -LN 2 TIMES 2 TO 

37SX 

B 

lOOOOOOOOOOO 

THE 35TH POWER AND BE 

38SX 

B 

177777777777 

LESS THAN 34*5(LN 2U 

39SX 

B 

177777777777 


40SX 

B 

130562057737 

ERROR PROCEDURES 

41SX 

B 

100000 

FOR INPUT OUT OF RANGE» 

42SX 

B 

1 

THE COMPUTER STOPS* 

43SX 

B 



44SX 

B 



45SX 
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1. IDENTIFICATION 

STATED POINT NATURAL LOGARITHM 
D. L. Richards 
Identification Tag: SLNX 

2. DESCRIPTION 

The routine computes LN(x) for argument x. Numbers s, u, and v are 
found such that x = 2 s u * 2 s (3/h)(v+l) and /v/ - 1/3. Then 
LN x = x(LN 2) + LN (3/U) + LN(v+l). LN(v+l) is obtained by polynomial 
evaluation. 

3. CALLING SEQUENCE 


SP 

L(x l ) 

36 

SA 

L (xr) 


CALL 

SLNX 



U. SPACE REQUIRED 

52 decimal or 6k octal cells 

5. RESTRICTIONS 

Scaling: Input and output are scaled 35 in A. 
Accuracy: For x £ 10 -1 , /&/ - (,72/LN x/ + 8.6) 2 -35 . 

For x<10 _1 , /E/ <x _1 .2“ 3 ^ 

Range of input: 0<x<2^ 

6 . ERROR PROCEDURES 


For input out of range, machine stops. 
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SLNX MJ 


L+3 

IDENTIFICATION 

1SL 

MS 



STATED POINT NATURAL 

2SL 

MJ 



LOGARITHM 

3SL 

TJ 

L+29 

L**2 


4SL 

SF 

A 

L+41 

IDENTIFICATION TAG 

5SL 

ST 

L+19 

L+41 

SLNX 

6SL 

LA 

A 

35 


7SL 

MA 

L+3 9 

L + l 8 

DESCRIPTION 

8SL 

LT 

1 

L+3 8 

THIS ROUTINE COMPUTES 

95 L. 

TP 

L+24 

Q 

THE NATURAL LOGARITHM OF 

10SL 

TU 

L+21 

L+3 

X* WHERE X IS A 72 BIT 

11SL 

MP 

Q 

L+35 

NUMBER IN A. THE RESULT 

12SL 

LT 

1 

A 

IS LEFT IN A. 

13SL 

AT 


Q 


14SL 

RA 

L-l 

L + 15 

CALLING SEQUENCE 

15SL 

TJ 

L+13 

L-4 

SP L{XL) 36 

16SL 

TP 

Q 

L+31 

SA L(XR) 

17SL 

TP 

L+28 

A 

CALL SLNX 

18SL 

TJ 

L+8 

L+2 


19SL 

ST 

L + ll 

A 

XL - LEFT 36 BITS OF X 

20SL 

MP 

A 

L+7 

XR - RIGHT 36 BITS OF X 

21SL 

AT 

L+25 

A 


2 2SL 

AT 

L+25 

A 

CODING INFORMATION 

2 SSL 

MJ 


L-21 

ROUTINE USES 48 CELLS. 

2 4SL 

B 

300000000000 



25SL 

B 

125252525253 


RESTRICTIONS 

26SL 

B 

45 


SCALING. INPUT AND OUT 

27SL 

B 

261344137700 


PUT ARE SCALED 35 IN A. 

28SL 

AT 

L+17 

Q 


29SL 

B 

100000 


ACCURACY. WHERE X IS 

30SL 

B 

110 


ONE-TENTH OR GREATER* 

31SL 

MS 

L+3 


THE ABSOLUTE VALUE OF 

3 2.SL 

B 

1 


THE ERROR IS AT MOST 

3 SSL 

B 

040652163741 


(•72/LN X/+8.6) TIMES 2 

34SL 

B 

735622203763 


TO THE -35TH POWER. FOR 

3 5SL 

B 

032714524356 


X LESS THAN ONE-TENTH* 

36SL 
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B 741111634006 
B 044540300304 
B 725207705376 
B 063144151162 
B 700000730075 
B 125252547122 
B 577777773345 
B 777777777724 
B 666264736730 
B 


IT IS LESS THAN 1 OVER X 37SL 
TIMES 2 TO THE -35TH* 38SL 

39SL 

RANGE OF INPUT* X MUST 40SL 

EXCEED ZERO AND BE LESS 41SL 

THAN 2 TO THE 35TH POWER 42SL 

43SL 

ERROR PROCEDURES 44SL 

FOR INPUT OUT OF RANGE* 45SL 

THE COMPUTER STOPS* 46SL 


B 

B 


47SL 

48SL 
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IDENTIFICATION 

STATED POINT ARCSINE 
D. L. Richards 
Identification Tag: SARCSN 

DESCRIPTION 


This routine computes the arcsine of the argument. The Rand polynomial 
7 

P(x) 88 ^>* A-j/x/*’ is evaluated for argument x. Also R(x) = Vl-/x/ is 


i=0 


1-/V 


evaluated by the Newton-Raphson Method where S n = § (■ g- — —), iterating 
until —1,“/^/ - S_ 1 is positive. Then if x is positive, 

o u"! 

s n-l 


arcsine x * ^/2 - P(x)R(x)j if x is negative, arcsine x » -^2 + (P(x)R(x). 

The output is an angle from quadrant I or quadrant IV expressed in 
radians. 


CALLING SEQUENCE 

TP L(x) A 

CALL SARCSN 

SPACE REQUIRED 

77 decimal or llf> octal cells 
RESTRICTIONS 


Scaling: Input and output are scaled 33 in A. 

Accuracy: / E / — 9x10**^ 

Range of input: -1 - x - 1 


ERROR PROCEDURES 


For input out of range, machine stops 



STATED POINT ARCSINE 


SARCSN MJ L+3 

MS 
MJ 

TP L+66 L+68 

TM A L+68 

TJ L+50 L-4 

TJ L+50 ’ L+2 

MJ L-6 

TP A 0 

ZJ L+l L-7 

SJ L+l L+2 

TP L+43 L+60 

T M A A 

EJ L+44 L+34 

MP L+58 L+44 

LT 1 A 

AT L+43 L+57 

MP L+5 5 L + 56 

LT 1 A 

AT L+41 L+54 

MP L+52 L+53 

LT 3 A 

AT L+39 L+51 

MP L+49 L+50 

LT 2 A 

AT L+37 L+48 

MP L+46 L+47 

LT 2 A 

AT L+3 5 L+45 

MP L+43 L+44 

LT 2 A 

AT L+33 L+42 

MP L+40 L+41 

LT A 

AT L+31 L+39 

TN L+37 A 
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IDENTIFICATION 

IIS 


21S 

STATED POINT ARCSINE 

31S 


41S 


5 IS 

IDENTIFICATION TAG 

615 


71 S 

SARCSN 

81S 


91S 


10IS 

DESCRIPTION 

11IS 


121S 

THIS ROUTINE COMPUTES 

131 S 

THE ARCS I'N E OF X» WHERE 

141S 

X IS A NUMBER IN A-RIGHT 

15 IS 

THE RESULT IS LEFT IN 

161 S 

A-RIGHT. 

171S 


181S 


19 I S 

CALLING SEQUENCE 

20IS 


211 S 

TP L C X ) A 

221 S 

CALL SARCSN 

23 IS 


24IS 


25 IS 

CODING INFORMATION 

261 S 


271 S 

ROUTINE USES 76 CELLS. 

28 IS 


291S 


301S 

RESTRICTIONS 

311S 


321S 

SCALING. INPUT AND OUT 

331S 

PUT ARE SCALED 33 IN A. 

341 S 


351S 

ACCURACY. ABSOLUTE 

361S 
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SA 

L+21 

2 

TP 

L+30 

L+37 

EJ 

L+29 

L + 8 

TP 

A 

L+3 6 

SP 

L+3 5 

34 

DV 

L+33 

L + 29 

LA 

L+3 2 

71 

RS 

Q 

L + 3 1 

RA 

L+30 

1+26 

OJ 

L-5 

L + l 

MP 

A 

L+27 

LT 

1 

A 

ST 

L+l 8 

G 

I J 

L+22 

L + 2 

TN 

0 

Q 

TP 

Q 

A 

DV 

L+16 

A 

M 

MJ 


L-5 1 

n 

1 


B 

677777777777 


B 

100000000001 


B 

100000000000 


B 

532413520070 


B 

332441425535 


B 

564007151545 


B 

375041741233 


B 

46237066652? 


B 

266165166073 


B 

444200330653 


B 

311037551633 


B 

311037552421 


B 

377777777777 


B 

2 


B 

RSRV 

6 

6 


VALUE OF ERROR IS AT 37IS 

MOST 9 TIMES 10 TO THE 38IS 

MINUS 9TH POWER • 39IS 

401 S 

RANGE OF INPUT. ABSO- 411 

LUTE VALUE OF X MUST BE 421 

LESS THAN OR EQUAL TO 1. 431 

441 

THE RESULT IS AN ANGLE 431 

FROM QUADRANT I (IF X IS 461 

POSITIVE) OR QUADRANT IV 471 

(IF X IS NEGATIVE. EX- 481 

PRESSED IN RADIANS. 491 

'501 

511 

ERROR PROCEDURES 521 

531 

FOR INPUT OUT OF RANGE. 54l 

THE COMPUTER STOPS. 551 


561 

571 

581 

591 

601 

611 

621 

631 

641 

651 

661 

671 

681 

691 

701 

711 


if) </) if) cO if) U) O) U) if) {/ ) cQ if) if) W) if) if) CO tO CO to if) CO if) if) if) CO if) if) if) if) */) 
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1. IDENTIFICATION 

STATED POINT ARGOSINE 
D. L. Richards 
Identification Tag: SARCOS 


2. DESCRIPTION 


This routine computes the arcosine of the argument. The Rand polynomial 
7 


p (x) » Aj/x/ 1 is evaluated for argument x. 
i=0 

evaluated by the Newton-Raphson method where S n 

iterating until _i_l M . is positive. 

s n-l 


Also R(x) = -/l - /x/ 


, , 1 - /X/ 

■ * * S -1 

Then if x is positive 


is 


>, 


arcosine x = P(x)R(x); if x is negative, arcosine x = 7T - P(x)R(xK 
The output is an angle from quadrant I or quadrant II expressed in 
radians. 


3. CALLING SEQUENCE 

TP L(x) A 

CALL SARCOS 

U. SPACE REQUIRED 

79 decimal or 117 octal cells 
5. RESTRICTIONS 

Scaling: Input and output are scaled 33 in A. 
Accuracy: / E / - 9xl0~^ 

Range of input: -1 ^ x - 1 


6 . ERROR PROCEDURES 


For input out of range, machine stops. 
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MJ 

MS 

MJ 


L+3 

TP 

L+68 

L+70 

TM 

A 

L+70 

TJ 

L+52 

L-4 

TJ 

L+52 

L+2 

MJ 


L-6 

TP 

A 

0 

ZJ 

L+l 

L+42 

SJ 

L+l 

L+2 

TP 

L+61 

L+62 

TM 

A 

A 

EJ 

L+46 

L+42 

MP 

L+60 

L+46 

LT 

1 

A 

AT 

L+45 

L+59 

MP 

L+57 

L+58 

LT 

1 

A 

AT 

L+43 

L+56 

MP 

L+54 

L+55 

LT 

3 

A 

AT 

L+41 

L+53 

MP 

L+51 

L+52 

LT 

2 

A 

AT 

L+39 

L + 50 

MP 

L+48 

L+49 

LT 

2 

A 

AT 

L+37 

L+47 

MP 

L+45 

L+46 

LT 

2 

A 

AT 

L+3 5 

L+44 

MP 

L+42 

L+43 

LT 


A 

AT 

L+33 

L+41 

TN 

L+39 

A 


IDENTIFICATION 
STATED POINT ARCOSINE 

IDENTIFICATION TAG 
SARCOS 

DESCRIPTION 

THIS ROUTINE COMPUTES 
THE ARCOSINE OF X* WHERE 
X IS A NUMBER IN A-RIGHT 
THE RESULT IS LEFT IN 
A—RIGHT• 

CALLING SEQUENCE 

TP L {X ) A 
CALL SARCOS 

CODING INFORMATION 
ROUTINE USES 79 CELLS* 

RESTRICTIONS 

SCALING. INPUT AND OUT 
PUT ARE SCALED 33 IN A. 


1IC 
21C 
31C 
4IC 
5 IC 
61 C 
71C 
81C 
91C 
10IC 
11IC 
121C 
13IC 
141C 
151C 
16IC 
17IC 
181C 
191C 
201C 
21IC 
221C 
231C 
24IC 
25 IC 
26IC 
271C 
28IC 
291C 
30IC 
311C 
321C 
331C 
341C 
35 IC 
36IC 


ACCURACY. ABSOLUTE 



STATED 

POINT ARCOSINE 


SA 

L+23 

2 

TP 

L+32 

L+39 

EJ 

L+31 

L + 8 

TP 

A 

L+38 

SP 

L+37 

34 

DV 

L+3 5 

L+37 

LA 

L+34 

71 

RS 

Q 

L+33 

RA 

L+32 

L + 34 

QJ 

L—5 

L + l 

MP 

A 

L+29 

LT 

1 

A 

ST 

L+20 

Q 

IJ 

L+24 

L+2 

TN 

Q 

Q 

RS 

Q 

L+17 

DV 

L+18 

A 

TN 

A 

A 

MJ 


L—52 

TN 

L+13 

Q 

MJ 


L-7 

B 

677777777777 


B 

100000000001 


B 

100000000000 


B 

532413520070 


B 

332441425535 


B 

564007151545 


B 

375041741233 


B 

462370666522 


B 

266165166073 


B 

444200330653 


B 

311037551633 


B 

311037552421 


B 

377777777777 


B 

B 

2 


B 

1 


RSRV 6 

6 
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VALUE OF ERROR IS AT 37IC 

MOST 9 TIMES 10 TO THE 38IC 

MINUS 9TH POWER. 391C 

4010 

RANGE OF INPUT. ABSO- 41IC 

LUTE VALUE OF X MUST BE 42IC 

LESS THAN OR EQUAL TO 1. 43IC 

441 C 

THE RESULT IS AN ANGLE 45IC 

FROM QUADRANT I (IF X IS 461C 

POSITIVE) OR QUADRANT II 47IC 

{IF X IS NEGATIVE). EX- 48IC 

PRESSED IN RADIANS. 49IC 

5 01C 
511C 

ERROR PROCEDURES 52IC 

53IC 

FOR INPUT OUT OF RANGE* 54IC 

THE COMPUTER STOPS. 55IC 


561C 
571C 
58IC 
59IC 
601 C 
611C 
621C 
631C 
64IC 
651C 
661C 
671C 
681C 
691C 
701C 
711C 
721C 
731C 
741C 
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IDENTIFICATION 

STATED POINT ARCTANGENT 
D. L. Richards 
Identification Tag: SARCTN 

DESCRIPTION 

This routine computes the arctangent of the argument. The Rand polynomial 
7 

vn 

arctan x * ^ C2^ + ^ is evaluated for x if /x/ <1, for l/x other- 

i=0 

wise. In the second case the identity arctan x = 7T/2 - arctan (l/x) 
supplies the answer. 

The output is an angle from quadrant I or quadrant IV expressed in 
radians. 

CALLING SEQUENCE 

SP L(x l ) 36 

SA L(xft) 

CALL SARCTN 

SPACE REQUIRED 
1*9 decimal or 6l octal cells 
RESTRICTIONS 

Scaling; Input and output are scaled 33 in A. 

O 

Accuracy: / E/<8“‘° 

Range of input; /x/< 2^ 

ERROR PROCEDURES 

None. If input exceeds range, answer may be wrong. 



'STATED 

POINT ARCTANGENT 

PAGE 1 

/ 2 

SARCTN MJ 


L+3 

IDENTIFICATION 

1 IT 

MS 



STATED POINT ARCTANGENT 

2 I T 

MJ 




3 I T 

TP 

L+41 

L+42 

IDENTIFICATION TAG 

41 T 

TP 

L+40 

L+42 

SARCTN 

SIT 

TP 

A 

Q 


6IT 

LA 

A 

2 

DESCRIPTION 

7 I T 

EJ 

A 

L+l 0 

THIS ROUTINE COMPUTES 

81T 

TP 

L+33 

L+37 

THE ARCTANGENT OF X* 

91T 

SJ 

L+l 

L+2 

WHERE X IS A 72 BIT NUM 

101 T 

TN 

L+35 

L + 35 

BER IN A* THE RESULT IS 

HIT 

SF 

A 

L+35 

LEFT IN A. 

12 IT 

TN 

A 

0 


13IT 

TN 

L+33 

A 

CALLING SEQUENCE 

T4IT 

AT 

L+l 8 

L + l 

SP L < XL) 36 

151 T 

SP 

L+28 


SA L(XR) 

161T 

DV 

Q 

0 

CALL SARCTN 

171T 

TP 

Q 

L+31 


18IT 

MP 

Q 

Q 

XL - LEFT 36 BITS OF X 

191 T 

LT 

3 

Q 

XR - RIGHT 36 BITS OF X 

201 T 

TP 

L+13 

L+27 


211T 

TU 

L-l 

L+5 • 

CODING INFORMATION 

221T 

TP 

L+2 0 

L+24 

ROUTINE USES 49 CELLS. 

231T 

RA 

L+3 

L+20 


24IT 

MP 

Q 

L+23 

RESTRICTIONS 

25 IT 

LT 

3 

A 

SCALING. INPUT AND OUT 

261T 

AT 


L+21 

PUT ARE SCALED 33 IN A. 

271T 

IJ 

L + 19 

L-4 


2 81 T 

MP 

L+20 

L + 19 

ACCURACY. ABSOLUTE 

2 91T 

LT 

3 

A 

VALUE OF ERROR IS LESS 

301 T 

AT 

L+l 5 

A 

THAN 8 TO THE -8TH POWER 

311T 

MJ 


L-29 


321 T 

SP 

L + l 1 

53 

RANGE OF INPUT. ABSO¬ 

331 T 

B 

777573120142 


LUTE VALUE OF X MUST BE 

341 T 

B 

1314262427 


LESS THAN 2 TO THE 37TH 

351 T 

B 

774327743606 


POWER. 

361T 



STATED 

POINT ARCTANGENT 

PAGE 2 

/ 2 

B 

6127402442 


371T 

B 

767062347224 

THE RESULT IS AN ANGLE 

38IT 

B 

14610051333 

FROM QUADRANT I (FOR 

391T 

B 

752526362035 

POSITIVE X} OR QUADRANT 

40IT 

B 

077777764636 

IV (FOR NEGATIVE X)» EX 

411T 

B 

144417665211 

PRESSED IN RADIANS. 

421T 

B 

6 


431T 

B 

100000 

ERROR PROCEDURES 

441T 

B 


NONE. FOR INPUT OUT OF 

45 IT 

RSRV 4 4 

RANGE* RESULT IS WRONG. 

461T 
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1. IDENTIFICATION 

COMPLEX ARITHMETIC PACKAGE 
Identification Tag: CMPLX 


D. N, Williams 


2. DESCRIPTION 

This is an interpretive routine using machine floating point arith¬ 
metic to accomplish the elementary operations upon complex numbers. 

3. CALLING SEQUENCE 


Before execution of the first interpretive command, the following 
instruction must be executed to set the proper manual jump in F 2 : 

CALL CMPLX 

The interpretive instruction format is 

IP ARGUMENT OPERATION 

ARGUMENT is the location of the first of two successive cells, the 
real and imaginary parts (or the modulus and argument in certain 
cases—see below) of the complex number to be operated upon. 

OPERATION is a tag referring to the operation to be performed. 

U. RESULTS OF EXECUTION 

- OP U V 

The result of executing IP ARGUMENT OPERATION is to transfer 
the contents of the two cells beginning with ARGUMENT to successive 
cells tagged UREAL and UIMAG, and then to jump to OPERATION. The 
results of operations appear in the successive cells FREAL and FIMAG. 
The real part of the result appears also in Q, except in the POLAR 
operation, where the modulus appears in Q. Control is returned to 
F^, which is not disturbed by the sequence. 

The available instructions are listed below.- The contents of the 
two cells FREAL and FIMAG are referred to as F, and the contents of 
the cells ARG and ARG+1 are referred to as U. All complex numbers 
are assumed to be in rectangular form except in the operation POLAR, 
which gives the result F in polar formj and RECT, which assumes U 
to be in polar form. For numbers in polar form FREAL (ARG) contains 
the modulus and FIMAG (ARG+1) the argument. 
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- 2 - 


IP 

ARQ 

ADD 

F + U-» F 

IP 

ARG 

SUBT 

F - U F 

IP 

ARG 

MULT 

F x U F 

IP 

ARG 

DIV 

F-U-^F 

IP 

ARG 

ROOT 

VtT "> F (FREAI?0) 

IP 

ARG 

ABSV 

(u | -* F 

IP 

ARG 

ROTATE 

iU -9 F 

IP 

ARG 

CONJ 

U-* ->F 

IP 

ARG 

POLAR 

U polar ^F (-tf'S FIMAG-tT) 

IP 

ARG 

RECT 

U rect 

5. CODING INFORMATION 




The routine uses the following tags and cells: 

TAG 


CELLS 

CMPLX 


21 


FREAL 


1 


FIMAG 


1 


UREAL 


1 


UIMAG 


1 


ADD 


5 > 


SUBT 


5 


MULT 


10 


DIV 


17 


ROOT 


UU 


ABSV 


6 


ROTATE 


h 


CONJ 


h 


POLAR 


30 



RECT 


10 

1.60 decimal 



110 3AF -SU BR-0002l|P 


-3- 


All subroutines named above are self-contained except for the addition 
of.certain SLAP subroutines, which must be included if the following 
are used: 


If USEt 

Add SUBROUTINE: 

ROOT 

SQ ROOT 

ABSV 

SQ ROOT 

POLAR 

ARCTAN, SQ ROOT 

RECT 

SINE, COSINE 


6. ERROR PROCEDURE 

A stop, MSO with PAK » CMPLX+16, occurs if an attempt is made to divide 
by zero. Restarting sets F to zero and continues. 

7. REMARKS 


The execution time of the interpretation is hhO microseconds, not in¬ 
cluding the complex operation. 

Loading into and storing from FREAL and FIMAG is accomplished by 
Transmit Positive commands. 

The ROTATE and CONJ operations are included only for convenience. 
Machine time will be saved by using instead the appropriate transmit 
commands. 

The programmer may add operations of his own by using the same instruc¬ 
tion format. Such a subroutine must begin at the address specified by 
the V field, and the argument specified by the U field will be found 
in the two cells UREAL and UIMAG. Exit to F^ will send control to the 
cell following the Interpret command. 
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CMPLX 

MJ 


L + 3 

COMPLEX ARITHMETIC 

1C A 


MS 


CMPLX+16 

ALARM EXIT 

2CA 


MJ 


FILL 

EXIT 

3CA 


TP 

L + 2 

1 

SET F2 

4CA 


MJ 


L-2 


5CA 


MJ 


CMPLX+6 

CONTENTS OF F2 

6CA 


SP 


15 

BEGIN INTERPRETATION 

7CA 


AT 

CMPLX+20 

L+l 

SET TO GET INSTRUCTION 

3CA 


TP 

FILL 

A 

GET INSTRUCTION 

9CA 


TV 

A 

CMPLX+15 

SET EXIT TO OPERATION 

1 OCA 


TU 

A 

L+3 

SET LOAD ARGUMENT 

11C A 


SA 

CMPLX+19 



12CA 


TU 

A 

L + 2 


13CA 


TP 

FILL 

UREAL 

LOAD ARGUMENT 

14CA 


TP 

fill 

UIMAG 


15CA 


MJ 


FILL 

EXIT TO OPERATION 

16CA 


CC 

FREAL 

A 

. CLEAR F FOR ALARM EXIT 

17CA 


TP 

A 

FIMAG 


18CA 


MJ 




19CA 


SI 5 

1 



20CA 


B 

107777732000 



21CA 

FREAL 




COMPLEX FLOATING 

22CA 

FIMAG 




ACCUMULATOR 

23CA 

UREAL 




COMPLEX ARGUMENT 

24CA 

UIMAG 




BUFFER 

25CA 

ADD 

FA 

FIMAG 

UIMAG 

COMPLEX ADDITION 

26CA 


TP 

Q 

FIMAG 


27CA 


FA 

FREAL 

UREAL 

F+U TO F 

28CA 


TP 

0 

FREAL 

FRE (FINAL) TO Q 

29CA 


MJ 




30CA 

SUBT 

FS 

FIMAG 

UIMAG 

COMPLEX SUBTRACTION 

31CA 


TP 

0 

FIMAG 


32CA 


FS 

FREAL 

UREAL 

F-U TO F 

33CA 


TP 

0 

FREAL 

FRE (FINAL) TO Q 

34CA 


MJ 




35CA 

MULT 

FM 

FIMAG 

UREAL 

COMPLEX MULTIPLICATION 

36CA 
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FI 

FREAL 

UIMAG 


37CA 


TP 

Q 

MULT+9 

FXU TO F 

38CA 


FM 

FIMAG 

UIMAG 

FRE {FINAL) TO Q 

39CA 


TN 

Q 

Q 


40CA 


FI 

FREAL 

UREAL 


41CA 


TP 

0 

FREAL 


42CA 


TP 

MULT+9 

FIMAG 


43CA 


MJ 




44CA 





BUFFER 

45CA 

DIV 

FM 

UREAL 

UREAL 

COMPLEX DIVISION 

46CA 


FI 

UIMAG 

UIMAG 


47CA 


ZJ 

L+l 

CMPLX+1 

ZERO DIVISOR ALARM EXIT 

48CA 


TP 

Q 

DIV+15 


49CA 


FM 

FREAL 

UIMAG 

F/U TO F 

50CA 


TN 

Q 

Q 

FRE (FINAL) TO Q 

51CA 


FI 

FIMAG 

UREAL 


52CA 


FD 

Q 

DIV+15 


53CA 


TP 

G 

DIV+16 


54CA 


FM 

FREAL 

UREAL 


55CA 


FI 

FIMAG 

UIMAG 


56CA 


FD 

0 

DIV+15 


57CA 


TP 

Q 

FREAL 


58CA 


TP 

DIV+16 

FIMAG 


59CA 


MJ 




60CA 





BUFFER 

61CA 





BUFFER 

62CA 

ROOT 

TP 

UIMAG 

A 

COMPLEX SQUARE ROOT 

63CA 


ZJ 

L+17 

L+l 


64CA 


TP 

UREAL 

A 

UIM EQUAL TO ZERO 

65CA 


TM 

A 

Q 


66CA 


SJ 

L+9 

L+l 


67CA 


ZJ 

L+4 

L+l 


68CA 


TP 

A 

FREAL 

IF URE IS ZERO* Q AND 

69CA 


TP 

A 

FIMAG 

F ARE ZERO. 

70CA 


MJ 




71CA 


CALL 

SGROOT 


IF URE IS PLUS* Q AND 

72CA 
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TP 

Q 

FREAL 

FRE ARE ITS PLUS ROOT * 

73CA 

TP 

UIMAG 

FI MAG 

FIM IS ZERO. 

74CA 

MJ 




75CA 

CALL 

SQROOT 


IF URE IS MINUS. FIM IS 

76CA 

TP 

Q 

FI MAG 

PLUS ROOT OF ITS MAGNI¬ 

77CA 

TP 

UIMAG 

FREAL 

TUDE. Q AND FRE ARE 

73CA 

TP 

FREAL 

Q 

ZERO. 

79C A 

MJ 




30CA 

FM 

A 

UIMAG 

UIM NOT EQUAL TO ZERO 

SICA 

FI 

UREAL 

UREAL 


S2CA 

CALL 

SQROOT 


LET PLUS SQUARE ROOT OF 

83CA 

TM 

UREAL 

FREAL 

(MAG U + MAG UREJ/2 

S4CA 

FA 

Q 

FREAL 

EQUAL D. 

3 5CA 

RS 

Q 

L + 20 


S6CA 

SJ 

L+l 

L+3 


S7CA 

CC 

Q 

A 

IF BIASED EXPONENT IS 

38CA 

MJ 


L-20 

MINUS* CLEAR Q AND F. 

89CA 

CALL 

SQROOT 



90CA 

TP 

Q 

FREAL 


91CA 

RA 

Q 

L + 14 


92CA 

FD 

UIMAG 

Q 


93CA 

TP 

UREAL 

A 


94CA 

SJ 

L+4 

L + l 


95CA 

TP 

Q 

FIMAG 

IF URE IS PLUS* UIM/2D 

96CA 

TP 

FREAL 

Q 

TO FIM* D TO Q AND FRE. 

97CA 

MJ 




98CA 

TP 

UIMAG 

A 

IF URE IS MINUS* 

99CA 

SJ 

L+l 

L + 2 

(SIGN UIMJD TO FIM. 

100CA 

TN 

FREAL 

FREAL 

MAG UIM/2D TO Q* FRE. 

101CA 

TP 

FREAL 

FIMAG 


102CA 

TM 

Q 

Q 


103CA 

TP 

Q 

FREAL 


104CA 

MJ 




105CA 


10000BI 



106CA 

ABSV FM 

UREAL 

UREAL 

ABSOLUTE VALUE OF U TO Q 

107CA 

FI 

UIMAG 

UIMAG 

AND FRE* ZERO TO FIM 

108CA 
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CALL 

SOROOT 



109CA 


TP 

Q 

FREAL 


110CA 


CC 

FIMAG 

A 


111CA 


MJ 




112CA 

ROTATE 

TN 

UIMAG 

Q 

ROTATION BY PI/2 

113CA 


TP 

Q 

FREAL 


114CA 


TP 

UREAL 

FIMAG 

IXU TO F, FRE TO Q 

115CA 


MJ 




116CA 

CONJ 

TP 

UREAL 

Q 

COMPLEX CONJUGATE 

117CA 


TP 

0 

FREAL 


118CA 


TN 

UIMAG 

FIMAG 

U CONJ TO F» FRE TO Q 

119CA 


MJ 




120CA 

POLAR 

TP 

UREAL 

A 

RECT TO POLAR FORM» R> 

121CA 


ZJ 

L+12 

L + l 

THETA AT FREAL* FIMAG 

122CA 


TP 

UIMAG 

A 


123CA 


TM 

A 

FREAL 

IF URE IS ZERO* MAG UlM 

124CA 


TM 

A 

Q 

TO R* Q AND IF UlM IS 

125CA 


SJ 

L+l 

L+3 


126CA 


TN 

POLAR+28 

FIMAG 

MINUS* -PI/2 TO THETA. 

127CA 


MJ 




128CA 


ZJ 

L+3 

L+l 


129CA 


TP 

A 

FIMAG 

ZERO* ZERO TO THETA. 

130CA 


MJ 




131CA 


TP 

POLAR+28 

FIMAG 

PLUS* PI/2 TO THETA. 

132CA 


MJ 




133CA 


FD 

UIMAG 

UREAL 

IF URE IS NOT ZERO*LET D 

134CA 


CALL 

ARCTAN 


BE PRINC ARCTAN UIM/URE. 

135CA 


TP 

UREAL 

A 


136CA 


SJ 

L+l 

L+6 


137CA 


TP 

UIMAG 

A 

IF URE IS NEG AND UlM IS 

138CA 


SJ 

L+3 

L+l 


139CA 


FA 

Q 

POLAR+29 

PLUS* D+PI TO THETA. 

140CA 


MJ 


L+2 


141CA 


FS 

0 

POLAR+29 

MINUS* D—PI TO THETA. 

142CA 


TP 

Q 

FIMAG 


143CA 


FM 

UREAL 

UREAL 

IF URE IS PLUS* D TO 

144CA 
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FI 

UIMAG 

UIMAG 

THETA. 


145CA 

CALL 

SOROOT 




146CA 

TP 

Q 

FREAL 

MAG U TO R 


147CA 

MJ 





148CA 

F 

1.5707963268 


PI OVER 2 


149CA 

F 

3.1415926536 


PI 


150CA 

TP 

UIMAG 

Q 

POLAR TO RECT FORM♦ R> 

151CA 

CALL 

COSINE 


THETA AT UREAL* 

UIMAG 

152CA 

TP 

Q 

FREAL 



153CA 

TP 

UIMAG 

Q 

R SIN THETA TO 

FIM 

154CA 

CALL 

SINE 




155CA 

FM 

G 

UREAL 



156CA 

TP 

Q 

FIMAG 



157CA 

FM 

FREAL 

UREAL 

R COS THETA TO 

FRE# Q 

158CA 

TP 

Q 

FREAL 



159CA 

MJ 





160CA 



SECTION IV 


INPUT - OUTPUT SUBROUTINES 
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X. IDENTIFICATION 

PRINT EDIT 
A. Podvin 

Identification Tag: PREDIT 

2. DESCRIPTION 

The Print Edit Routine has been written to provide a flexible output 
capable of producing nearly any format desired by customers of Dept. 
51-51. This routine should do away with the necessity of having a large 
library of standard output routines. 

3. CODING INFORMATION 

Cells required are 520, which includes subroutines and output buffer: 


365 Instructions 
15 Constants 
lUO Temps 


U. FUNCTION 

This routine will prepare a magnetic tape, in fixed block mode, on a 
designated Uniservo for listing a format or combination of formats on 
the high speed printer. 

5. USAGE 


Print Edit uses an argument and a set of parameter words to produce a 
matrix with m lines and n columns for output. A matrix entry (element, 
a.: is a string of XS 3 characters, (l - i- m and IS jSn). 

1 j J' 

1. Calling Sequence 


The calling sequence consists of sending an argument word to the 
Q-register followed by a return jump: 

TP ARG Q 

CALL PREDIT 

This argument word controls the number of lines of output, the 
tape unit used and the location of the parameter set. Its format 
is: 

LOC OP U V 

ARG TT PARAM NHNNN 



-2 
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1. Calling Sequence (Cont.) 

TT = Tape unit number, in octal. 

PARAM = Location of the first parameter word of the set. 
NNNNN = The number of lines, in octal, to be output. 

2. Parameter Words 


The set of parameter words consists of a first parameter word fol¬ 
lowed by pairs of parameter words. The first parameter word give® 
over-all editing information. The succeeding pairs of words control 
the editing of columns. 

(a) First Parameter Word 

The first parameter word has the following formats 

LOC OP U V 

PARAM FE _ QQQQQ 


F specifies fast feed editing. F may be 1, 2, 3 or U in which 
cast fast feed symbols I, II, III or IV, respectively, will be 
inserted as the initial symbol of the first line. If F ® 0 
no insertion will take place. See Note #7. 

Output always occurs in groups of 6 lines, except for the final 
set of 5 or less lines. E controls the output of the final set 
of lines. If E = 0 this set of lines is left in the buffer and 
will not be output until Print Edit is used again. If E = 1 
the final set of lines is output with any unused lines being 
output as blanks. 

QQQQQ equals the number, in octal, of parameter pairs following 
the first parameter word. 

(b) Parameter Pairs 


The format of a parameter pair, P^, where l - ^ k-<QQQQQ, is as 
follows: 

LOC OP . U V 

PARAM + 2k-l A A M S3S WW 

PARAM + 2k RR I C 

The first parameter pair, P^, controls the editing of the first 
RR+1 columns. If the parameter pair, P^, controls the editing 
of a set of RR+1 consecutive columns, the first of which is 
column cj, the next parameter pair, P k+1 , will control a set of 
consecutive columns starting with column c *- s an 
octal number which is one less than the number of columns con¬ 
trolled by P^. SSS is the number, in octal, of blanks preceding 
an entry of each column controlled by P^. WW is the number, in 
octal, of characters which comprise an entry of each column 
controlled by P^. 
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(b) Parameter Pairs (Cont.) 

The characters which comprise an entry are obtained by some 
conversion of the contents of a location in memory. The 
memory location corresponding to an entry, a^-j, of a column 
controlled by the above parameter pair is obtained as follows: 

(1) Location M corresponds to the first entry of the first 
column controlled by this parameter pair. 

(2) The location corresponding to an entry in a given column 
is A A plus the location corresponding to the preceding 
entry of the column. The AAoccurring in a parametric 
pair is an octal number. 

(3) The locations corresponding to the successive entried in 
any given line is one plus the location corresponding 

to the preceding entry of that line. See Note #1. 

Y and C, which are explained below, are used to control the 
conversion that produces the entries in the columns controlled 
by the above parameter pair. 

Conversions 


The programmer may use any one of seven conversion routines embedded 
into Print Edit, or his own conversion routine. If the V-address of 
the second word of a parameter pair is less than 7, the conversion 
routine will be a routine in Print Edit according to the usage indi¬ 
cated below. Let BBB denote the binary scaling and II equal the 
number of digits to the left of the decimal, then: 


C = 0, FLFIX. This routine will convert a packed single precision 
floating point number to its XS3 stated point equivalent. 


FORMAT 

I 

LIMITS 

i x...x.x...x 

11000 

0-W^15q 

0 II lii 8 

C = 1, FLFL. This routine will convert a packed single precision 
floating point number to its XS3 scientific decimal equivalent. 

FORMAT 

Y 

LIMITS 

± F .... F ± EE 

00000 

OSYWS1U0 
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~U~ 


C - 2, FIXFIX . This routine will convert a fixed point binary 
number occupying one storage location to its XS3 decimal equiva¬ 
lent. 

FORMAT Y LIMITS 

+ X...X.X...X IIBBB 0<WW^15q 

0£II < IUq 

0r£BBB<107g 

C = 3. FIXFL . This routine vrill convert a fixed point binary 
number occupying one storage location to its XS3 scientific 


decimal equivalent. 



FORMAT 

I 

LIMITS 

t F ,.. F + EE 

00BBB 

o-zwsiSq 

0 £: BBB-5107 g 

C = i|.> OCTAL. This routine will 
XS3 octal equivalent. 

convert a machine word to its 

FORMAT 

Y 

LIMITS 

X-X 

00000 

O 

£• 

Oo 

C «* 5> XS3. This routine can be considered an identity con- 
version since the consecutive machine word arguments are already 
in XS3 and packed six characters to a word. 

FORMAT 

Y 

LIMITS 

X....X 

00000 

0rSWW5 77 8 


0=6, HEADING . This routine produces an entire line from twenty 
consecutively stored words in packed XS3 form. Hence, NNNNN lines 
of heading will be described by one and only one parameter pair. 


If C is greater than seven, then it is considered to be the location 
of the first word of a conversion routine not embedded in Print Edit. 
Any such routine must conform to the following specifications: 

(a) The first three lines of the routine must have the standard USE 
format: 


LOG 

OP 

U 

V 

SIJBR 

MJ 


SUBR 

SUBR + 1 

MS 


SUBR 

SUBR + 2 

MJ 


EXIT 



-5- 
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(b) The routine must produce VJW excess three characters, the 
first of which is located in a certain cell, say CHAR. 

The characters produced may be in packed or unpacked form. 

If packed, they occur six to a word in successive words 
beginning with CHAR. The last packed word, if it contains 
less than six characters must be justified to the left. 

If unpacked, characters occur one per word in successive 
cells beginning with CHAR and are justified to the right. 
(The remaining 30 bits in each word may contain an ything, 
since they are ignored.) 

(c) Prior to exit, the subroutine must leave an indicator in 
the accumulator as follows: If the characters are packed, 
CHAR must appear in the U-address of the accumulator and 
the accumulator must be positive. If the characters are 
unpacked, the complement of CHAR must be in the U-address 
of the accumulator and the accumulator must be negative. 

(d) The U-address of the second word of the parameter pair may 
contain any information necessary for usage by the sub¬ 
routine. The subroutine will always find the parameter 
pair in the accumulator and Q-registers, respectively, 
except that the U-address of the accumulator (i.e., the 
location M) has been replaced by the location of the current 
word to be converted. 


NOTES 

1. If C. is the first column controlled by the k^ 1 parameter pair and if 
Oi i 5RR, then 

(a) M is the location corresponding to a-, . 

(b) M +AA(k-l) + i is the location corresponding to a^ . 

2. This routine does not provide for alarms. 

3. If successive outputs involve different tape units, the partially 
filled block will be output on the old tape unit. 

1*. If the printing string width, WW, of a column exceeds the limit 
given for an internal conversion, asterisks appear instead of the 
converted word. 

5. If the total number of characters in a line exceeds 120, the first 
120 characters appear in the line. If the number is less than 120 
characters, the unused symbols appear as blanks. 

6. If QQQQQ = 0, NNl'INN lines of blanks will be output. 

7. If a fast feed symbol is desired, then SSS of the first parameter 
pair must be greater than zero. 

REMARKS 

Questions arising from the use of the Print Edit Routine should be referred 
to A. Podvin of the Numerical Methods Group. 



PRINT EDIT 


PREDIT MJ 


L+3 

RJ 

L+124 

L + 119 

MJ 


FILL 

TP 

L (0) 

L+277 

TU 

Q 

L + 10 

TV 

Q 

L+274 

SP 

Q 

6 

LT 


L+478 

TP 

L+273 

A 

EJ 

L+47 6 

L+3 

RJ 

L+115 

L+109 

TP 

L+474 

L + 270 

IJ 

L+267 

L+2 

MJ 


L-l 1 

TP 

FILL 

L+471 

SP 

L+470 

3 

LT 


Q 

MP 

Q 

L { 6) 

TV 

A 

L + l 

SP 

L+242 

FILL 

TV 

L+74 

L+2 

TP 

L+239 

Q 

QS 

A 

FILL 

TV 

L+462 

L+255 

IJ 

L+254 

L+2 

MJ 


L+83 

TU 

L-12 

L+3 

RA 

L+2 

L+235 

RP3 

2 

L+2 

TP 

FILL 

L+457 

SP 

L+456 

6 

LT 


Q 

MP 

Q 

L + 248 

AT 

L+453 

L+453 

LT1 

21 

A 

LT 

9 

L+247 
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IDENTIFICATION 1PE 

2PE 

PRINT EDIT 3PE 

4PE 

IDENTIFICATION TAG 5PE 

6PE 

PREDIT 7PE 

8PE 

9PE 

DESCRIPTION 10PE 

11PE 

PRINT EDIT IS A FLEX I- 12PE 

BLE» GENERAL OUTPUT 13PE 

ROUTINE* CAPABLE OF 14PE 

PRODUCING NEARLY ANY 15PE 

FORMAT DESIRED* MOST 16PE 

CONVERSION ROUTINES ARE 17PE 

CONTAINED WITHIN PRINT 18PE 

EDIT, BUT ANY TYPE OF 19PE 

AUXILIARY CONVERSION 20PE 

ROUTINE CAN BE USED. 21PE 

22PE 

23PE 

OUTPUT 24PE 

25PE 

OUTPUT IS IN XS3♦ FIXED 26PE 

BLOCK MODE, ON A DESIG 27PE 

NATED UNISERVO, READY- 28PE 

ING IT FOR LISTING ON 29PE 

THE HIGH SPEED PRINTER. 30PE 

31PE 

32PE 

CALLING SEQUENCE AND 33PE 

USAGE 34PE 

35PE 

A SEPARATE CALLING SE- 36PE 
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QUENCE IS REQUIRED FOR 
EACH LINE OF PRINTING* 
EXCEPT WHERE SUCCESSIVE 
LINES HAVE THE SAME 
FORMAT. 

THE CALLING SEQUENCE 
PARAMETER* WHICH STARTS 
AT *PARAM** IS DIVIDED 
INTO SETS OF 2-WORD 
^-PARAMETER PAIRS*» EACH 
PARAMETER PAIR DESCRIB 
ING THE FORMAT OF A 
SPECIFIC NUMBER OF COL 
UMNS IN THE LINE TO BE 
PRINTED. 

AN ENTIRE CALLING SE¬ 
QUENCE IS AS FOLLOWS. 


LOC 

OP 

U 

V 

L 

TP 

ARG 

Q 

L+l 

CALL 

PREDIT 


L+2 

(NORMAL RETURN) 

ARG 

TT 

PARAM 

NNNNN 

PARAM 

FE 


QQQQQ 


(+1) 1ST PARAMETER 
(+2) PAIR 

(+3) 2ND PARAMETER 
(+4) PAIR 

. 3RD 


. 


37PE 
38PE 
39PE 
40PE 
41PE 
42PE 
43PE 
44PE 
45PE 
46 PE 
47PE 
48PE 
49PE 
50PE 
51PE 
52PE 
53PE 
54PE 
55PE 
56PE 
57PE 
58PE 
59PE 
60PE 
61PE 
62PE 
63PE 
64PE 
65PE 
66PE 
67PE 
68PE 
69PE 
70PE 
71PE 
72PE 


ETC. 



PRINT EDIT 


SJ 

L+l 

L-5 

LQ 

L+210 

A 

ZJ 

L+7 

L+30 

TP 

L+192 

L+414 

AT 

L+209 

L+209 

SJ 

L+4 

L + l 

RA 

L+16 

L (13 

EJ 

L+187 

L+29 

MJ 


L+5 

RA 

L+204 

L (6) 

SP 

L+12 

15 

TU 

A 

L + l 

TP 

FILL 

L+202 

TP 

L (0 3 

A 

RPO 

6 

L+2 

SA 

L+198 


TV 

A 

L+3 

TN 

A 

A 

AT 

L+175 

L+3 

SP 

L+195 

FILL 

SS 

A 


SA 

FILL 

FILL' 

LT 


L+271 

TP 

A 

L+191 

RA 

L—3 

L+166 

RS 

Q 

L (6) 

TJ 

L (13 

L+5 

RA 

L-5 

L (13 

EJ 

L+166 

L+8 

MJ 


L-10 

RJ 

L—4 

L-32 

RJ 

L-5 

L-28 

RA 

L+382 

L+158 

IJ 

L+179 

L—64 

RA 

L-77 

L+156 

IJ 

L+171 

L—80 
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73PE 

74PE 

75PE 

TT=TAPE UNIT NUMBER* 76PE 

IN OCTAL. 77PE 

78PE 

NNNNN=NUMBER OF LINES 79PE 

TO BE PRINTED UNDER 80PE 

CONTROL OF THIS 81PE 

CALLING SEQUENCE. 82PE 

EACH LINE MUST HAVE 83PE 

THE SAME FORMAT. 84PE 

85PE 

FE IS A 2-DIGIT* OCTAL 86PE 

NUMBER. 87PE 

88PE 

F=1*2*3* OR 4. 89PE 

A FAST FEED SYMBOL 90PE 

I* II* III* OR IV 91PE 

WILL BE INSERTED AS 92PE 

THE FIRST SYMBOL IN 93PE 

THE FIRST LINE OF 94PE 

PRINTING. THIS CAU- 95PE 

SES THE HIGH SPEED 96PE 

PRINTER TO SPACE A 97PE 

REQUIRED NUMBER OF 98PE 

TIMES BEFORE PRINT- 99PE 

ING. 100PE 

101PE 

F=0. 102PE 

NO FAST FEED INSER- 103PE 

TION WILL TAKE PLACE 104PE 

105PE 

E=0* 106PE 

OUTPUT ALWAYS OCCURS 107PE 

IN GROUPS OF 6 LINES 108PE 



PRINT EDIT 


TP 

L (0) 

L+177 

RA 

L+171 

L+153 

TV 

L+156 

L—16 

RA 

SS 

L+155 

L+157 

L {20 ) 

ZJ 

L+2 

L + l 

RJ 

L+ll 

L+4 

IJ . 

L+164 

L—92 

LQ 

L+369 

5 

GJ 

L-116 

L-115 

TP 

L+163 

A 

ZJ 

L+l 

L+4 

TP 

L+146 

A 

EJ 

L+149 

L+2 

RJ 

L+172 

L+170 

TP 

L+147 

L+l 43 

TV 

L+2 

L-30 

RP1 

120 

FILL 

TP 

L+141 

L+239 

TU 

L+359 

L+l 

TP 

FILL 

L + 162 

TP 

L+154 

L+158 

LG 

L+357 

A+l 2 

QT 

L(77B ) 

L+158 

QT 

L+139 

A 

LT 

9 

L + 155 

LQ 

Q 

21 

QJ 

L+l 

L+4 

QJ 

L+l 

L+2 

QJ 

L+119 

L+l 1 5 

QJ 

L+4 

L+7 

QJ 

L+l 

L+2 

QJ 

L+103 

L+13 

QJ 

L+75 

L+68 

TU 

L+344 

L+2 

RP3 

11 

L-41 

TP 

FILL 

L+345 
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EXCEPT FOR THE FINAL 109PE 
SET OF 5 LINES OR HOPE 

LESS. IF E=0» THIS 111PE 
FINAL SET IS LEFT IN 112PE 
A BUFFER AND WILL 113PE 

NOT BE OUTPUT UNTIL 114PE 
PRINT EDIT IS USED 115PE 
AGAIN. 116PE 

117PE 

E=1• 118PE 

THE FINAL SET OF 119PE 

LINES IS OUTPUT* 120PE 

WITH ANY UNUSED 121PE 

LINES BEING OUT- 122PE 

PUT AS BLANKS. 123PE 

124PE 

QQOQQ=NUMBER OF PARA- 125PE 
METER PAIRS. 126PE 

127PE 
12 8PE 
129PE 

THE FORMAT DESCRIBED 130PE 

BY THE 1ST PARAMETER 131PE 

PAIR APPEARS AT THE 132PE 

LEFT END OF THE LINE* 133PE 
AND SUCCESSIVE PARA- 134PE 
METER PAIR FORMATS ARE 135PE 
PLACED ACROSS THE LINE 136PE 
TO THE RIGHT. 137PE 

138PE 

EACH PARAMETER PAIR 139PE 

IS AS FOLLOWS 140PE 

141PE 

LOC OP U V 142PE 

143PE 

(1ST WORD) DD M SSSWW 144PE 

(2ND WORD) RR Y C 145PE 



PRINT EDIT 


SP 

L+145 


RP1 

12 

L + 2 

LT 

3 

L+342 

TP 

L {7 3 

Q 

RP3 

12 

L + 2 

OT 

L+339 

L+339 

RP2 

12 

L + l 07 

RA 

L+337 

L ( 3 ) 

IJ 

L+134 

L+2 

MJ 


L-52 

TJ 

L {13 ) 

L+2 

MJ 


L + 100 

RS 

L+130 

L+l 3 2 

SJ 

L+98 

L + l 

TU 

L+116 

L+36 

TV 

L+20 

L+28 

RA 

L+27 

L+l 2 8 

AT 

L (1) 

A 

TV 

A 

L+34 

TV 

A 

L+40 

RS 

L+123 

L ( 36 ) 

SJ 

L+7 

L+l 

TJ 

L {36) 

L+2 

RS 

L + 122 

A 

TN 

A 

A 

AT 

L+106 

L + l 

LA 

FILL 

FILL 

SP 

L(1 ) 


TM 

A 

A 

SP 

A 

15 

AT 

L+102 

L+7 

TP 

L + 114 

A 

TP 

L {1) 

L+312 

SJ 

L+l 

L+3 

TM 

A 

A 

TP 

L (2 5 

L+309 

RJ 

L 

L+l 


PAGE 5/10 


146PE 

M=THE STORAGE TAG OF 147PE 

THE LOCATION TO BE 148PE 

PRINTED. 149PE 

150PE 

RR IS A 2-DIGIT OCTAL 151PE 

NUMBER * INDICATING 152PE 

THE NUMBER OF TIMES 153PE 

A PARAMETER PAIR 154PE 

FORMAT IS TO BE IM- 155PE 

MEDIATELY REPEATED. 156PE 

(RR=00 INDICATES 157PE 

THAT THE FORMAT WILL 158PE 

NOT BE REPEATED.) 159PE 

160PE 

EACH TIME A FORMAT 161PE 

IS REPEATED* M IS 162PE 

INCREMENTED BY 1 TO 163PE 

OBTAIN THE PROPER 164PE 

STORAGE LOCATION TO 165PE 

BE OUTPUT. FOR EXAM 166PE 

PLE* IF RR=02 * THE 167PE 

CONTENTS OF M> M+l* 168PE 

AND M+2 WOULD 169PE 

BE PRINTED FROM LEFT 170PE 

TO RIGHT ACROSS THE 171PE 

LINE* EACH IN THE 172PE 

-FORMAT SPECIFIED BY 173PE 

THIS ONE PARAMETER 174PE 

PAIR. 175PE 

176PE 

SSSWW IS A 5-DIGIT OC- 177PE 

TAL NUMBER. 178PE 

179PE 

SSS=THE NUMBER OF 180PE 

BLANK COLUMNS TO 181PE 

PRECEDE THE PRINTED 182PE 



PRINT EDIT 
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LT1 

LT 

FILL 

FILL 

Q 

FORMAT. 

183PE 

184PE 

IJ 

L+105 

L+2 

WW=THE NUMBER OF COL- 

185PE 

MJ 


L + 12 

UMS OVER WHICH THE 

186PE 

SP 

G 


PRINTED FORMAT WILL 

187PE 

DV 

LUO) 

Q 

EXTEND. 

188PE 

AT 

L { 3 ) 

FILL 


189PE 

EJ 

L {3 ) 

L+3 

C=THE CONVERSION ROU¬ 

190PE 

TU 

L+85 

L + 5 

TINE TO BE USED. 

191PE 

MJ 


L+2 

SEVEN ARE AVAILABLE 

192PE 

RA 

L+3 

L+70 

WITHIN PRINT EDIT. 

193PE 

RS 

L-5 

L (1) 

AND ARE DESCRIBED 

194PE 

IJ 

L+95 

L-8 

BELOW. 

3 95PE 

RP 

FILL 

L+2 


196PE 

TP 

L!l! 

L+294 

Y IS USED TO INDICATE 

197PE 

TP 

L+T7 

FILL 

BOTH INTERNAL AND 

198PE 

IJ 

L+89 

L+7 

PRINTED SCALING OF 

199PE 

MJ 


L + 9 

FIXED POINT NUMBERS. 

200PE 

SP 

L+90 

2 

IT IS OF THE FORM 

2 01 PE 

SA 

L+89 

1 

IIBBB. A 5-DIGIT OC 

202PE 

LT1 


L+8 8 

TAL NUMBER* WHERE 

203PE 

LT 


A 

BBB IS THE INTERNAL 

204PE 

AT 

L {3 ) 

FILL 

BINARY SCALING* AND 

205PE 

RA 

L-l 

111) 

II IS THE NUMBER OF 

206PE 

IJ 

L+81 

L—6 

DIGITS TO BE PRINTED 

207PE 

RJ 

L 

L+l 

TO THE LEFT OF THE 

208PE 

MJ 


L+50 

DECIMAL. 

209PE 

LA 

L+81 

9 


210PE 

LQ 

L+80 

35 

DD IS A 2-DIGIT* OCTAL 

211PE 

LT 


A 

NUMER* AND IS PER¬ 

212PE 

TM 

A 

A 

TINENT ONLY WHEN 

213PE 

SN 

A 


MORE THAN 1 LINE IS 

214PE 

AT 

L{243B ) 

L+74 

TO BE PRINTED. 

215PE 

SJ 

L+41 

L-6 2 


216PE 

RJ 

L-3 5 

L-40 

DD IS THE INCREMENT 

217PE 

TP 

A 

L + l 47 

THAT IS GIVEN TO THE 

218PE 

IJ 

L+69 

L+2 

M IN EACH PARAMETER 

219PE 



PRINT EDIT 


MJ 


L-117 

TJ 

L (12 ) 

L+2 

MJ 


L+3 5 

RS 

L+65 

L ( 3 ) 

TV 

L—27 

L—19 

RJ 

L+79 

L+77 

LT1 

1 

L+6 5 

RJ 

L—19 

L—20 

TV 

L—23 

L + 10 

RA 

L—2 4 

L(l) 

TV 

A 

L + l 2 

SA 

L (1 ) 


TV 

A 

L + 8 

TP 

L+131 

A 

TP 

L(l) 

0 

SJ 

L+l 

L + 3 

TP 

L { 2 ) 

0 

TN 

A 

A 

TP 

0 

FILL 

DV 

L ( 10 ) 

Q 

AT 

L ( 3 5 

FILL 

SP 

Q 


AT 

L (3 ) 

FILL 

MJ 


L + 16 

RJ 

L—62 

L—67 

SP 

A 

35 

ZJ 

L+l 

L—28 

SF 

A 

L+45 

LT 

28 

L+43 

RA 

L+43 

L ( 200B ) 

SS 

L+39 

27 

AT 

L+40 

L+40 

MJ 


L—34 

TU 

L+234 

L + 3 

TV 

L-159 

L+2 

RP3 

20 

L—146 

TP 

fill 

FILL 
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PAIR TO OBTAIN THE 220PE 

PROPER STORAGE TO BE 221PE 

OUTPUT IN EACH LINE 222PE 

FOLLOWING THE FIRST 223PE 

LINE. 224PE 

225PE 

FOR EXAMPLE* IF DD= 226PE 

5* IN A PARAMETER 227PE 

PAIR* AND NNNNN=3 * 228PE 

THE PRINT-OUT WOULD 229PE 

SHOW THE CONTENTS OF 230PE 

M ON THE FIRST LINE* 231PE 

THE CONTENTS OF M+5 232PE 

DIRECTLY BELOW IT ON 233PE 

THE 2ND LINE* AND 234PE 

THE CONTENTS OF M+10 235PE 

DIRECTLY BELOW THEM 236PE 

BOTH ON THE 3RD 237PE 

LINE. 238PE 

2 39PF 
240PE 
241 PE 

CONVERSIONS 242PE 

243PE 

THE FOLLOWING CONVER- 244PE 

SION ROUTINES ARE CON- ?45^E 

TAI NED WITHIN PRINT ED- 246PE 

IT* AND ARE REFERENCED 247PE 

BY C IN THE PARAMETER 248PE 

PAIR. 249PE 

250PE 

251PE 

C=0* FLOATING TO FIXED 252PE 

253PE 

CONVERTS A PACKED S'IN- 254PE 

GLE PRECISION FLOATING 255PE 

POINT NUMBER TO ITS XS3 256PE 



PRINT EDIT 
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RP1 

11 L-154 

STATED POINT EQUIVALENT 

257PE 

TP 

L+l6 L+232 


258PE 

TU 

L+7 L-203 

Y IS OF THE FORM I1000 

259PE 

MJ 

L-208 

WW LIMITS ARE 0 TO 15 

260PE 

B 

770000000000 

II LIMITS ARE 0 TO 14 

261PE 

B 

013742577600 

(LIMITS ARE OCTAL) 

262PE 

B 

000000100000 


263PE 

B 

10 


264PE 

B 

00000060DQ00 

C=l> FLOATING TO FLOAT 

265PE 

SA 

L+224 36 

ING 

266PE 

LT 

L+l 19 


267PE 

B 

010101010101 

CONVERTS A PACKED SIN 

268PE 

B 

3700002 

GLE PRECISION FLOATING 

269PE 

LT 

L+236 

POINT NUMBER TO ITS XS3 

270PE 

LT 

L+l 15 

SCIENTIFIC DECIMAL 

271PE 

B 

777000000000 

EQUIVALENT.* 

272PE 

B 

030303030303 


273PE 

B 

565656565656 

Y IS ALWAYS ZERO. 

274PE 

B 

000000000022 

WW LIMITS ARE 0 TO 14> 

275PE 

B 

001000000000 

OCTAL 

276PE 

LA 

L+14 71 


277PE 

LT1 

L+13 • 

* SXXXXXXXSXX 

278PE 

B 



279PE 

B 



280PE 

B 


C=2» FIXED TO FIXED 

281PE 

B 



232PE 

B 


CONVERTS A FIXED POINT 

283PE 

B 


BINARY NUMBER TO ITS 

284PE 

B 


XS3 DECIMAL EQUIVALENT. 

285PE 

B 



286PE 

B 


Y IS OF THE FORM IIBBB 

287PE 

B 


WW LIMITS ARE 0 TO 15 

288PE 

B 


II LIMITS ARE 0 TO 14 

289PE 

8 


BBB LIMITS ARE 0 TO 107 

290PE 

B 


(LIMITS ARE OCTAL) 

291PE 

B 



292PE 

MJ 

L+3 


293PE 



PRINT EDIT 


B 

MJ 

SP 

L—14 

12 

AT 

L+4 

L-3 

EF 


L—4 

RP1 

120 

L-4 

EW1 


L+66 

B 

020064600000 


MJ 


L+3 

B 

MJ 

SP 

L+60 


LT 

9 

L+58 

LQ 

A 

35 

TM 

Q 

L+57 

ZJ 

L+l 

L-5 

RS 

L+54 

L(127 ) 

MP 

L+36 

L+53 

LT 

1 

L+52 

LQ 

A 

35 

SJ 

L+l 

L+4 

RS 

L+49 

L (1) • 

SP 

L+34 

1 

AT 

Q 

Q 

MP 

Q 

L+30 

LT 

1 

A 

LT1 

3 

Q 

LT 


A 

AT 

L+27 

L+18 

LQ 

Q 

35 

SP 

Q 

4 

LT 


A 

AT 

L+32 

L+l 1 

QT 

L+32 

Q 

MP 

Q 

L+33 

LT 


A 

AT 

L+30 

L-3 9 
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C=3* FIXED TO FLOATING 294PE 

295PE 

CONVERTS A FIXED POINT 296PE 

BINARY NUMBER TO ITS 297PE 

XS3 SCIENTIFIC DECIMAL 298PE 

EQUIVALENT•* 299PE 

300PE 

Y IS OF THE FORM 00B6B 301PE 

WW LIMITS ARE 0 TO 14 302PE 

BBB LIMITS ARE 0 TO 107 303PE 

(LIMITS ARE OCTAL J 304PE 

305PE 

* SXXXXXXXXSXX 306PE 

307PE 

308PE 

C=4* OCTAL 309PE 

310PE 

CONVERTS AN ENTIRE 311PE 

STORED WORD TO ITS XS3 312PE 

OCTAL EQUIVALENT• IF 313PE 

ONLY PART OF THE WORD 314PE 

IS TO BE CONVERTED* 315PE 

THAT PART MUST BE JUS- 316PE 

TIFIED TO THE LEFT IN 317PE 

STORAGE* 318PE 

319PE 

Y IS ALWAYS ZERO 320PE 

WW LIMITS ARE 0 TO 14* 321PE 

OCTAL 322PE 

323PE 

324PE 

C=5* XS3 325PE 

326PE 

UP TO 63 PACKED XS3 327PE 

CHARACTERS* WHICH ARE 328PE 

STORED IN 11 (OR LESS) 329PE 

LOCATIONS* ARE PRINTED* 330PE 



PRINT EDIT 


MP 

Q 

L-40 

LT 


A 

AT 

L+29 

L—42 

SP 

Q 

33 

DV 

L—44 

A 

AT 

L+14 

Q 


FILL 

FILL 

LT 

2 

A 

MP 

A 

L+26 


FILL 

FILL 

SA 

L+22 


EJ 

A 

L+4 

DV 

LUO) 

Q 

RA 

L+20 

L (1) 

RA 

Q 

L (1) 

MJ 


L—42 

B 

115040465024 


B 

324464741135 


SS 

A 

37 

B 

200000000000 


B 

213453407440 


B 

230157701214 


B 

245775532516 


B 

265011714640 


B 

305316250212 


B 

327211763126 


B 

352601433477 


MP 

Q 

L—8 

B 

037777777777 


B 

600000171150 


B 

035440262675 


B 

270524354513 


B 

000000000254 



RSRV 

120 

120 

RSRV 

20 

20 
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331PE 

Y IS ALWAYS ZERO 332PE 

WW LIMITS ARE 0 TO 77* 333PE 

OCTAL 334PE 

335PE 

336PE 

C = 6» 20 XS3 WORDS 337PE 

(HEADING) 338PE 

339PE 

PRODUCES AN ENTIRE 340PE 

LINE OF HEADING FROM 341PE 

20 CONSECUTIVELY STORED 342PE 

XS3 WORDS» 343PE 

344PE 

Y'IS ALWAYS ZERO* ALONG 345PE 

WITH ALL OTHER PARA- 346PE 

METER PAIR QUANTITIES 347PE 

EXCEPT M. 348PE 

34-9PE 

350PE 

IF C IS GREATER THAN 7* 351PE 

IT IS ASSUMED TO BE THE 352PE 

FIRST LOCATION OF A 353PE 

CONVERSION ROUTINE NOT 354PE 

CONTAINED IN PRINT 355PE 

EDIT* AS EXPLAINED IN 356PE 

THE WRITE UP. 357PE 

358PE 

359PE 

NOTES 360PE 

361PE 

THIS ROUTINE DOES NOT 362PE 

PROVIDE FOR ALARMS. 363PE 

364PE 

REFER TO ACCOMPANYING 365PE 

WRITE UP FOR ADDITIONAL 366PE 

INFORMATION. 367PE 
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1. IDENTIFICATION 

VARIABLE FIELD CARD READ 
Identification Tag* VARAB. 

2. DESCRIPTION 

This routine reads n variable field cards and stores the converted num¬ 
bers in specified locations. The conversion and storing of information 
is accomplished between card reads. See page 2 for description of card 
format. The format is the same as for VARCAR, 

3. CALLING SEQUENCE 


LOG 

OP 

U 

V 

L 

TP 

ARG 

VARAB+3 

L+l 

CALL 

VARAB 


L+2 

Normal 

return 



The argument is of the form 

00 bbbbb ccccc 

bbbbb - The number of cards to be read, 
ccccc - The initial loading location, 

k. CODING INFORMATION 

Space required* 393 cells (decimal) 

611 cells (octal). 


5. RESTRICTIONS 
See page 2, 

6, ERROR PROCEDURES 


The argument word is left in Q and the following error codes in A when an 
error stop occurs* 

660303050001 - core overflow while storing information, 
660303050002 - power overflow during conversion. 
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- 2 - 


7. VARIABLE FIELD CARD DESCRIPTION 

The variable field card input uses only the first 72 columns. A number 
that would require punching beyond the first 72 columns may be continued 
in column 1 of the succeeding card if there are 72 non-blank columns in 
the first card* 

The reading of a card is terminated by any of the following: 

a. A blank column found anywhere in the first 72 columns. 

b. When 72 non-blank columns have been read. 

c. By the letter "C" found anywhere in the first 72 columns. 

Loading of the input is terminated in one of two ways, whichever occurs 
first: 

a* When the letter "C" appears on a card, or, 

b. When "n" cards, as specified in the "u" addressof the parameter 
word, have been read. 

Decimal storage addresses in the form of Lxxxxx, may appear anywhere on 
any card. The number immediately following such an address will be stored 
in the cell whose address is formed by adding to the Lxxxxx address the 
initial address in the "v" portion of the parameter word. The following 
numbers will be stored in consecutive cells until another Lxxxxx address 
appears. 

A comma separates all fields of the variable field card input. Complete 
numbers may be duplicated into consecutive cells by successive commas. 

Floating point numbers are written in the form F+xx. Plus signs need not 
be specified. No decimal point may be written in a floating point number* 
it is assumed that rhe decimal point precedes the left most written digit. 
The fractional part of a floating point number may be less than, but can¬ 
not exceed nine decimal digits. 

Stated point numbers are specified by a sign followed by not more than 
eleven decimal digits. Plus signs need not be written. A decimal point 
may appear anywhere in a stated point number. 

Scale factors are associated with each stated point number. The decimal 
scaling is in the form Dtxx and the binary scaling is in the form Bxx. 

The binary scaling is actually the location of the binary point obtained 
by counting from the right, starting with the bit zero of the word as it 
appears in the machine. The plus sign need not be written in the decimal 
scaling factor, a minus sign is not allowed in the binary scaling factor. 

The decimal scaling factor must not exceed til. A minus zero will be 
stored in place of the number if the scaling factor is too large. 

After once being specified, the decimal and/or binary scaling of a number 
is duplicated in the following stated point numbers until new scale factors 
are encountered. Zero scalings are specified by writing only the alpha¬ 
betical character. 
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RAB 


MJ 


L+4 

1. IDENTIFICATION 

1VF 

MS 


L + l 


2VF 

RJ 



VARIABLE FIELD CARD READ 

3VF 

B 




4VF 

RPV 

30 

L+2 

IDENTIFICATION TAG VARAB 

5VF 

TP 

L+283 

L + 349 


6VF 

SP 

L-3 


2. DESCRIPTION 

7VF 

TV 

A 

L+352 


8VF 

TV 

A 

L+201 

THIS ROUTINE READS N 

9VF 

LT 

21 

L+349 


10VF 

TP 

L+278 

L+350 

VARIABLE FIELD CARDS 

11VF 

TP 

L+277 

L+350 


12VF 

TP 

L+277 

L+350 

AND STORES THE CONVERT¬ 

13VF 

TP 

L+369 

L+368 


14VF 

IJ 

L+344 

L+2 

ED NUMBERS IN SPECIFIED 

15VF 

MJ 


L-13 


16VF 

EF 


L+332 

LOCATIONS. THE CONVERS¬ 

17VF 

TP 

L+292 

L+337 


18VF 

TP 

L+286 

L+337 

ION AND STORING OF IN¬ 

19VF 

TU 

L+291 

L+l 8 


20VF 

RPV 

6 

L+2 

FORMATION IS ACCOMP¬ 

21VF 

TP 

L+267 

L+363 


22VF 

RPV 

6 

L+2 

LISHED BETWEEN CARD 

23VF 

TP 

L+265 

L+367 


24 VF 

ER 


L + 339 

READS. FOLLOWING IS 

25VF 

ER1 


L+339 


26VF 

ER1 


L+339 

DESCRIPTION OF CARD 

27VF 

TP 

L+337 

Q 


28VF 

TU 

L+283 

L+2 

FORMAT. THE FORMAT IS 

29VF 

TP 

L+271 

L+327 


30VF 

TU 

L+282 

L+9 

THE SAME AS FOR VARCAR* 

31VF 

TP 

L+269 

L+32 6 


32VF 

TP 

L+256 

L+331 

3. CALLING SEQUENCE 

3 3VF 

QJ 

L+3 

L+l 


34VF 

LA 

L+329 

6 


35VF 

MJ 


L+3 


36VF 
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SP 

L+327 

6 

AT 

L + 2 70 

L+32 6 

IJ 

L+319 

L-5 

RA 

L+345 

L+324 

RA 

L-l 

L+2 51 

I J 

L+315 

L-10 

TP 

L+312 

Q 

OJ 

L+l 

L + 5 

TP 

Q 

L+310 

TU 

L+268 

L-l 5 

TP 

L+319 

Q 

MJ 


L-18 

RS 

L-ll 

L+243 

TP 

Q 

L+305 

IJ 

L+305 

L—26 

TP 

L+238 

L+304 

TP 

L+238 

L+314 

ER 


L+310 

ER1 


L+310 

ER1 


L+310 

TP 

L+308 

L+311 

TU 

L+254 

L+2 • 

TP 

L+242 

L+298 

SP 

L+253 


TV 

A 

L+13 

TU 

A 

L+2 

TP 

L+238 

L+295 

TP 

L+321 

L + 300 

TP 

L+303 

Q 

QJ 

L+l 

L + 5 

TP 

Q 

L + 301 

LQ 

L+296 

A+6 

AT 

L+298 

L+295 

MJ 


L+3 

TP 

0 

L+297 

LO 

L+292 

6 


LOC 


OP 


U 
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V 3 7VF 

3 8VF 

L TP ARG VARA.B+3 3 9VF 

40VF 

L+l CALL VARAB 4IVF 

42VF 

L+2 NORMAL RETURN 43VF 

44 V F 

THE ARGUMENT IS OF THE 45VF 

46VF 

FORM 47VF 

48VF 

00 BBBBB CCCCC 49VF 

50VF 

BBBBS-THE NUMBER OF 51VF 

52VF 

CARDS TO BE READ» CCCCC 53VF 

54VF 

THE INITIAL LOADING 55VF 

56VF 

LOCATION. 57VF 

58VF 

59VF 

60VF 

4* CODING INFORMATION 61VF 

62VF 

63VF 

64VF 

SPACE REQUIRED 393 CELLS 65VF 

66VF 

(DECIMAL) 611 CELLS 67VF 

68VF 

(OCTAL). 69VF 

70VF 

71VF 

72VF 



VARIABLE 

FIELD CARD 

READ 

PAGE 

3/10 

IJ 

L+28 5 

L—8 

5. ERROR PROCEDURES 

73VF 

TP 

L+290 

L+311 


74VF 

RA 

L-l 

L+215 


75VF 

RA 

L-12 

L + 216 


76VF 

IJ 

L+280 

L-14 

THE ARGUMENT WORD IS 

77VF 

TP 

L+27T 

Q 


78VF 

QJ 

L+l 

L + 5 

LEFT IN Q AND THE FOL¬ 

79VF 

TP 

Q 

L+275 


80VF 

TU 

L+233 

L-21 

LOWING ERROR CODES IN A 

81VF 

TP 

L+284 

L+286 


82VF 

MJ 


!_—2 4 

WHEN AN ERROR STOP 

83VF 

TP 

Q 

L+271 


84VF 

LQ 

L+282 

1 

OCCURS 

85VF 

IJ 

L+270 

L-32 


86VF 

MJ 


L + l 

660303050001“CORE OVER¬ 

87VF 

TU 

L+224 

L+3 


88VF 

TP 

L+201 

L+267 

FLOW WHILE STORING IN¬ 

89VF 

TP 

L+211 

L+267 


90VF 

SP 


15 

FORMATION. 

91VF 

TU 

A 

L + 2 


92VF 

TP 

L+208 

L + 265 

660303050002-POWER OVER¬ 

93VF 

LQ 


6 


94VF 

QT 

L+221 

A 

FLOW DURING CONVERSION. 

95VF 

TP 

L+286 

L+2 87 


96VF 

TP 

A 

L + 285 


97VF 

ZJ 

L+l 

L-84 


98VF 

EJ 

L+251 

L + l 1 

6* VARIABLE FIELD CARD 

99VF 

EJ 

L+217 

L + 12 


100VF 

TJ 

L+218 

L + l 3 

DESCRIPTION. 

101VF 

EJ 

L+195 

L + l 8 


102VF 

EJ 

L + 193 

L+20 


103VF 

EJ 

L+191 

L+2 8 


104VF 

EJ 

L+189 

L+31 

THE VARIABLE FIELD CARD 

105VF 

EJ 

L+203 

L+40 


106VF 

EJ 

L+186 

L+47 

INPUT USES ONLY THE 

107VF 

EJ 

L+190 

L-105 


108VF 
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RJ 


L—107 

TP 

L+179 

L+259 

MJ 


L+37 

TP 

L+206 

L+257 

MJ 


L+35 

ST 

L+185 

Q 

SP 

L+247 

2 

SA 

L+246 

1 

AT 

Q 

L+245 

RA 

L+243 

L+245 

MJ 


L+29 

TP 

L+198 

L+251 

TP 

L+168 

L+241 

MJ 


L+26 

TP 

L+195 

L+249 

TP 

L+238 

L+251 

TP 

L+164 

L+238 

TP 

L+163 

L+251 

TP 

L+242 

Q 

QJ 

L+l 

L—7 

TP 

L+189 

L+248 

TP 

L+159 

L+239 

MJ 


L—10 

TP 

L+157 

L+247 

TP 

L+185 

L+240 

TP 

L+228 

L+242 

MJ 


L—10 

TP 

L+182 

L+238 

TP 

L+152 

L+243 

TP 

L+235 

Q 

QJ 

L+l 

L-5 

TP 

L+222 

L+239 

TP 

L+148 

L+232 

TP 

L+227 

Q 

QJ 

L+l 

L-22 

TN 

L+235 

L+235 
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FIRST 72 COLUMNS* A 109VF 

11GVF 

NUMBER THAT WOULD RE- 111VF 

112VF 

QUIRE PUNCHING BEYOND 113VF 

114VF 

THE FIRST 72 COLUMNS 115VF 

116VF 

MAY BE CONTINUED IN 117VF 

118VF 

COLUMN 1 OF THE SUCCEED 119VF 

. 120VF 

ING CARD IF THERE ARE 121VF 

122VF 

72 NON-BLANK COLUMNS IN 123VF 

124VF 

THE FIRST CARD. 125VF 

126VF 

127VF 

128VF 

THE READING OF A CARD IS 129VF 


130VF 


TERMINATED BY ANY OF 131VF 

132VF 

THE FOLLOWING 133VF 

134VF 

A. A BLANK COLUMN FOUND 135VF 

136VF 

ANYWHERE IN THE FIRST 137VF 

138VF 

72 COLUMNS. 139VF 

140VF 

B. WHEN 72 NON-BLANK 141VF 

142VF 

COLUMNS HAVE BEEN READ. 143VF 

144VF 
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MJ 


L—15 

TP 

L+143 

L+215 

TP 

L+171 

L+223 

IJ 

L+210 

L—54 

RA 

L—55 

L+143 

IJ 

L+207 

L—57 

TU 

L+163 

L—60 

IJ 

L+204 

L—62 

MJ 


L—138 

EJ 

L+229 

L+56 

TP 

L+216 

Q 

QJ 

L+l 

L+l 1 

TP 

L+205 

A 

AT 

L+202 

A 

TV 

A 

L+51 

TP 

L+129 

L+201 

TP 

L+128 

L+216 

TP 

L+127 

L+200 

RPV 

6 

L+2 

TP 

L+125 

L+205 

TP 

L+125 

L+198 

MJ 


L—18- 

TP 

L+205 

Q 

QJ 

L+l 

L+8 

TP 

L+193 

L+209 

TP 

L+119 

L+202 

TP 

L+198 

Q 

QJ 

L+l 

L+76 

TN 

L+205 

L+205 

TP 

L+115 

L+195 

MJ 


L+73 

TP 

L+197 

Q 

QJ 

L+l 

L+9 

TP 

L+lll 

L+195 

TP 

L+190 

Q 

QJ 

L+l 

L+4 
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C. BY THE LETTER C 145VF 

146VF 

FOUND ANYWHERE IN THE 147VF 

148VF 

FIRST 72 COLUMNS. 149VF 

150VF 

151VF 

152VF 

LOADING OF THE INPUT IS 153VF 

154VF 


TERMINATED IN ONE OF 155VF 

156VF 

TWO WAYS* WHICHEVER 157VF 

158VF 

OCCURS FIRST 159VF 

160VF 

A. WHEN THE LETTER C 161VF 

162VF 

APPEARS ON A CARD* OR* 163VF 

164VF 

B. WHEN N CARDS* AS 165VF 

166VF 

SPECIFIED IN THE U AD— 167VF 


168VF 

DRESS OF THE PARAMETER 169VF 

170VF 

WORD* HAVE BEEN READ* 171VF 

172VF 

173VF 

174VF 

DECIMAL STORAGE ADDRESS- 175VF 

176 V F 

ES IN THE FORM OF LXXXX 177VF 

178VF 

X* MAY APPEAR ANYWHERE 179VF 

180VF 
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TN 

L+181 

L + l 9 8 

ON ANY CARD. THE NUMBER 

181V F 

TP 

L+107 

L + l 87 


1S2VF 

MJ 


L + l 3 

IMMEDIATELY FOLLOWING 

183VF 

TP 

L+178 

L + l 9 5 


184VF 

MJ 


L+l 1 

SUCH AN ADDRESS WILL BE 

185VF 

TP 

L + 188 

Q 


186VF 

GJ 

L+l 

L+4 

STORED IN THE CELL 

187VF 

TP 

L+174 

L + 192 


188VF 

TP 

L+100 

L + l 8 5 

WHOSE ADDRESS IS FORMED 

189VF 

MJ 


L+6 


190VF 

TP 

L+171 

L+185 

BY ADDING TO THE LXXXXX 

191VF 

TP 

1+177 

Q 


192VF 

QJ 

L+l 

L+3 

ADDRESS THE INITIAL AD¬ 

193VF 

TP 

L+124 

L+183 


194VF 

TP 

L+94 

L+174 

DRESS IN THE V PORTION 

195VF 

TM 

L+183 

A 


196VF 

SS 

L+lll 


OF THE PARAMETER WORD. 

197VF 

SJ 

L+l 

L+3 


198VF 

TP 

L+180 

A 

THE FOLLOWING NUMBERS 

199VF 

MJ 


L+3 


200VF 

TP 

L+l 50 

L+180 

WILL BE STORED IN CON¬ 

201VF 

MJ 


L+8 


202VF 

TP 

L+l 67 

Q 

SECUTIVE CELLS UNTIL 

203VF 

GJ 

L+3 

L+l 


204VF 

TP 

L+174 

L+159 

ANOTHER LXXXXX ADDRESS 

205VF 

MJ 


L + l 1 


206VF 

TP 

L+82 

L+163 

APPEARS. 

207VF 

ST 

L+l 53 

L + l 56 


208VF 

MJ 


L+8 


209VF 

TP 

L+171 



210VF 

RA 

L-l 

L+79 

A COMMA SEPARATES ALL 

211VF 

EJ 

L + 142 

L+2 


212VF 

MJ 


L-53 

FIELDS OF THE VARIABLE 

213VF 

SP 

L+138 



214VF 

TP 

L-211 

Q 

FIELD CARD INPUT. COM- 

215VF 

MJ 


L-214 


216VF 
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TP 

L+147 

A 

ZJ 

L+l 

L+15 

SJ 

L+l 

L+17 

SN 

L+144 

15 

SA 

L+99 


TU 

A 

L+3 

TV 

L+157 

L+8 

SP 

L+152 


DV 


L+l 43 

SP 

A 

35 

TU 

L-2 

L+l 

DV 


L+156 

SP 

L+139 

35 

SA 

Q 

37 

LA 

A 


MJ 


L+10 

TV 

L+147 

L+l 

SP 

L+142 


MJ 


L+7 

TV 

L+144 

L+5 

SP 

L+127 

15 

SA 

L+82 

* 

TU 

A 

L+l 

MP 


L+136 

LA 

A 


TP 

L+135 

Q 

QJ 

L+l 

L+3 

TN 

A 

L+137 

MJ 


L-35 

TP 

A 

L+135 

MJ 


L—37 

TP 

L+130 

A 

ST 

L+112 

Q 

MP 

G 

L+82 

LT 

3 

L+114 

LO 

A 

35 


PLETE NUMBERS MAY BE 217VF 

218VF 

DUPLICATED INTO CONSEC- 219VF 

220VF 

UTIVE CELLS BY SUCCESS- 221VF 

222VF 

IVE COMMAS. 223VF 

224VF 

225VF 

226VF 

FLOATING POINT NUMBERS 227VF 

22 8VF 

ARE WRITTEN IN THE FORM 229VF 

230VF 

F+-XX. PLUS SIGNS NEED 231VF 

232VF 

NOT BE SPECIFIED. NO 233VF 

234VF 

DECIMAL POINT MAY BE 235VF 

236VF 

WRITTEN IN A FLOATING 237VF 

238VF 

POINT NUMBER* IT IS 239VF 

240VF 

ASSUMED THAT THE DEC- 241VF 

242VF 

IMAL POINT PRECEDES THE 243VF 

244VF 

LEFT MOST WRITTEN DIGIT 245VF 

246VF 

THE FRACTIONAL PART OF 247VF 

248VF 

A FLOATING POINT NUMBER 249VF 

250VF 

MAY BE LESS THAN* BUT 251VF 

252VF 




SJ 

L + l 

L + 4 

RS 

L + lll 

L + 36 

SP 

L+63 


AT 

Q 

Q 

SP 

Q 

4 

LT 


A 

AT 

L+76 

L + l 1 

QT 

L+7 4 

0 

MP 

Q 

L + 83 

LT 


h. 

AT 

L+8 2 

L + l 03 

MP 

Q 

L + 102 

LT 


A 

AT 

L+80 

L + 100 

SP 

Q 

33 

DV 

L+98 

A 

AT 

L+64 

Q 

MP 

Q 


LT 

2 

A 

MP 

A 

L+103 

ZJ 

L+l 

L-27 

SF 

A 

L+93' 

TP 

A 

L+93 

RA 

L+89 

L+71 

AT 

L+90 

L+88 

SJ 

L+l 

L + 3 

TP 

L+10 

A 

MJ 


L + 5 

TJ 

L+67 

L+3 

SP 

L+71 


MJ 


L-68 

LQ 

L+81 

27 

TP 

L+83 

A 

LT 

28 

A 

AT 

0 

A 

MJ 


L-46 
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CANNOT EXCEED NINE DEC- 253VF 

2 54VF 

IMAL DIGITS. 255VF 

2 56 VF 
2 57VF 
258VF 

STATED POINT NUMBERS ARE 259VF 

2&0VF 

SPECIFIED BY A SIGN FOL 261VF 

262VF 

-LOWED BY NOT MORE THAN 263VF 

264VF 


ELEVEN DECIMAL DITITS. 265VF 

266VF 

PLUS SIGNS NEED NOT BE 267VF 

268VF 

WRITTEN. A DECIMAL 269VF 

270VF 

POINT MAY APPEAR ANY- 271VF 

272VF 

WHERE IN A STATED POINT 273VF 

274VF 

NUMBER. 275VF 


276VF 

277VF 

278VF 

SCALE FACTORS ARE ASSOC- 279VF 

280VF 


IATED WITH EACH STATED 281VF 

282VF 

POINT NUMBER. THE DECI- 283VF 

284VF 

MAL SCALING IS IN THE 285VF 

286VF 

FORM D+-XX AND THE BIN- 287VF 

288VF 



VARIABLE FIELD CARD READ 


B 

B 1 


B 

20 


B15 

1 


B 

24 


B 

45 


B 

47 


B 

51 


B 

26 


B 

46 


B 

3 


B 

4 


B 

5 


B 

6 


B 

7 


B 

10 


B 

11 


B 

12 


B 

13 


B 

14 


B 

61 


B 

525252525252 
L—3 

L+l 



L+72 

L+l 

L+72 


L+76 

L+76 

B 

77 


B 

20 


B 

400000000000 


B 

15 

L+l 


B 

1 


B 

12 


B 

144 


B 

1750 
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ARY SCALING IS IN THE 289VF 

290VF 

FORM BXX» THE BINARY 291VF 

292VF 

SCALING IS ACTUALLY THE 293VF 

294VF 

LOCATION OF THE BINARY 295VF 

296VF 

POINT OBTAINED BY COUNT 297VF 

298VF 

ING FROM THE RIGHT* 299VF 

300VF 

STARTING WITH THE SIT 301VF 

302VF 

ZERO OF THE WORD AS IT 303VF 

304VF 

APPEARS IN THE MACHINE. 305VF 


306VF 


THE PLUS SIGN NEED NOT 307VF 

308VF 

BE WRITTEN IN THE DECI- 309VF 

310VF 

MAL SCALING FACTOR* 311VF 

312VF 

A MINUS SIGN IS NOT 313VF 

314VF 

ALLOWED IN THE BINARY 315VF 

316VF 

SCALING FACTOR. 317VF 

318VF 

319VF 

320VF 

THE DECIMAL SCALING FAC- 321VF 

322VF 

TOR MUST NOT EXCEED 323VF 

324VF 
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B 23420 

B 303240 

B 3641100 

B 46113200 

B 575360400 

B 7346545000 

B 112402762000 

B 324464741134 

B 200000000000 

B 37777777777 

MP 0 L+l 

B 200000000000 

B 213453407440 

B 230157701214 

B 245775532516 

B 265011714640 

B 305316250212 

B 327211763126 

B 352601433477 

B 035440262675 

B 600000171150 

B 270524354513 

B 201 

B 400 

B 400000000005 

B 40 

B 777777777777 

B 660303050001 

B 660303050002 

11 L+27 10000)B 

RSRV 42 42 
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11* A MINUS ZERO WILL 325VF 

326VF 

BE STORED IN PLACE OF 327VF 

328VF 

THE NUMBER IF THE SCAL- 329VF 

330VF 

ING FACTOR IS TOO LARGE 331VF 

332 VF 
333VF 
33 4VF 

AFTER ONCE BEING SPECI- 335VF 

336VF 

FI ED* THE DECIMAL AND/ 337VF 

338VF 

OR BINARY SCALING OF A 339VF 

340VF 

NUMBER IS DUPLICATED IN 341VF 

342VF 

THE FOLLOWING STATED 343VF 

344VF 

POINT NUMBERS UNTIL NEW 345VF 

346VF 

SCALE FACTORS ARE EN- 347VF 

348VF 

COUNTERED* ZERO SCAL- 349VF 

350VF 

INGS ARE SPECIFIED BY 351VF 

352VF 

WRITING ONLY THE ALPHA- 353VF 

354VF 

BETICAL CHARACTER* 355VF 
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1. IDENTIFICATION 

VARIABLE FIELD CARD READ - TAPE MODE 
Identification Tag: VARCAR 

2. DESCRIPTION 


This routine reads n variable field cards from a tape prepared by the 
Card-to-Tape Converter. Each card is translated into one blockette and, 
hence, by the use of the variable block mode, reading can be accomplished 
in increments of one card. See page 2 for description of card format. 

The format is the same as for VARAB. 

3. CALLINQ SEQUENCE 


LOG 

OP 

U 

L 

CALL 

VARCAR 

L*1 

TT 

bbbbb 

L+2 

Normal 

return 


TT - Uniservo 

bbbbb - The number of cards to read 
vvwv - The initial storage address. 

U. CODING INFORMATION 

I 

Space required: 377 cells (decimal) 

571 cells (octal). 

5. RESTRICTIONS 
See page 2. 

6. ERROR PROCEDURES: 

Illegal character: MS 

Core overflow: MS, (A) r * U5U716031220 

(Q) ■ ttbbbbbwvw 

Power overflow: MS, (A) r * li50326110331 

(Q) ■ ttbbbbbwvw 

Depressing the start button at any error 3 top will send control to the 
normal exit of the subroutine. 
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7. VARIABLE FIELD CARD DESCRIPTION 

The variable field card input uses only the first 72 columns. A number 
that would require punching beyond the first 72 columns may be continued 
in column 1 of the succeeding card if there are 72 non-blank columns in 
the first card. 

The reading of a card is terminated by any of the followings 

a. A blank column found anywhere in the first 72 columns. 

b. When 72 non-blank columns have been read, 

c. By the letter "C" found anywhere in the first 72 columns. 

Loading of the input is terminated in one of two ways, whichever occurs 
first: 

a. When the letter ,, C" appears on a card, or, 

b. When "n" cards, as specified in the "u" address of the parameter 
, word, have been read. 

Decimal storage addresses in the form of Lxxxxx, may appear anywhere on 
any card. The number immediately following such an address will be 
stored in the cell whose address is formed by adding to the Lxxxxx ad¬ 
dress the initial address in the "v n portion of the parameter word. The 
following numbers will be stored in consecutive cells until another 
address appears. 

A comma separates all fields of the variable field card input. Complete 
numbers may be duplicated into consecutive cells by successive commas. 

Floating point numbers are written in the form F«*xx. Plus signs need 
not be specified. No decimal point may be written in a floating point 
numberj it is assumed that the decimal point precedes the left-most 
written digit. The fractional part of a floating point number may be 
less than, but cannot exceed nine decimal digits. 

Stated point numbers are specified by a sign followed by not more than 
eleven decimal digits. Plus signs need not be written. A decimal point 
may appear anywhere in a stated point number. 

Scale factors are associated with each stated point number. The decimal 
scaling is in the form D*xx and the binary scaling is in the form Bxx, 

The binary scaling is actually the location of the binary point obtained 
by counting from the right, starting with Ihe bit zero of the word as it 
appears in ihe machine. The plus sign need not be written in the decimal 
scaling factor, a minus sign is not allowed in the binary scaling factor. 

The decimal scaling factor must not exceed - 11. A minus zero will be 
stored in place of the number if the scaling factor is too large. 
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7. VARIABLE FIELD CARD DESCRIPTION (Cont'd) 

After once being specified, the decimal and/or binaiy scaling of a 
number is duplicated in the following stated point numbers until new 
scale factors are encountered. Zero scalings are specified by writing 
only the alphabetical character. 
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1. IDENTIFICATION 

READ FLOATING DECIMAL TAPE (1*8 Words/Block) 

Identification Tag: RDFLDC 

2. DESCRIPTION 

This program reads N blocks of floating decimal words (in XS3 code) from 
the designated uniservo. The routine translates these words into 1103A 
floating binary and stores them in sequential storages beginning with the 
storage address indicated in the parameter word. The routine stores only 
that number of words specified by the parameter word; this number need 
not be an exact multiple of U8. 

3. CALLING SEQUENCE 


LOC 

OP 

U 

V 

L 

CALL 

RDFLDC 


L+l 

TT 

wwwww 

DDDDD 

L+2 

Next 

instruction 



TT - Uniservo number. 

WWWWW - Number of words to be read in and stored. 

DDDDD - The address of the cell in which the first word 
is to be stored. 

1*. CODING INFORMATION 


Space required for this routine: 

281* cells (decimal) 
b3h cells (octal) 

This routine is completely self-contained. 
5. RESTRICTIONS 


a. Accuracy . The exponential method used in conversion gives accuracy 
to within a binary one in the 27th bit of the mantissa in all cases. 
The conversion of all integers less than 107 is exact. 

b. Range of Parameters. (See error procedures) 

Largest floating decimal number (absolute value): 

1.701U x IQ 38 ^ 377 77777777 a . 
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Smallest (non-zero) floating point number (absolute value): 

1.U69U x lO" 39 ^ OOOUOQOOOOOO 

c. Machine Limitations . An attempt to store information in such a way 
as to overflow the last core address ( 17777 ) will cause an error 1 ©. 

6 . ERROR PROCEDURES 


The parameter word is left in Q when an error M3 occurs. 

a. When a parity error is detected four attempts are made to read the 
offending block 2 on normal bias and one each on high and low bias. 

b. In case of a core overflow, the error exit is entered immediately and 
no attempt is made to space the tape forward to correspond to the num¬ 
ber of blocks indicated by W. 

c. In case of a power overflow, the largest floating binary number is 
substituted for the offending number and the error exit is not entered 
until the W words called for by the parameter word are read in and 
stored. 

d. When a power underflow occurs, the offending number is set equal to 
zero and no error is indicated. 

ERROR CODES 

(a r ) indicating 

660303050001 - Four attempts to read one block 
660303050002 - Core overflow while storing information 
660303050003 - Power overflow during floating conversion 
7. REMARKS 

The tape format required by this routine is as follows: 

Fixed block length - 120 computer words per block. 

Each block contains I 48 floating decimal numbers in XS3 code. 

A number is represented by 12 XS3 characters in the following order: 

1. Sign of the number 

2 . 8 digit fraction 

3. Sign of the power 

1 *. 2 digit power 

(e.g., the number - 1.5 is represented by the 12 characters -15000000 + 01 ). 
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RDFLDC MJ 


L+4 

MS 


L + l 

MJ 


FILL 

SP 

L-2 

15 

TU 

A 

L + l 

TP 

FILL 

L-3 

RA 

L-5 

L + l 41 

TV 

L-5 

L + l 10 

TP 

L+138 

L + 137 

LQ 

L-7 

Q+21 

QT 

L+151 

L + 170 

LA 

L-9 

A+54 

TP 

L+147 

Q 

QS 

A 

L + 129 

QS 

A 

L + 127 

RS 

L+165 

L + 139 

TP 

L+138 

L+165 

SJ 

L+l 

L+5 

SA 

L+136 


SJ 

L+l 18 

L+l 

ZJ 

L+l 

L+117 

TP 

A 

L+160 

EF 


L+140 

TP 

L+126 

L + l 59 

EF 


L+118 

TV 

L+l 

L+4 

TP 

L+127 

L + l 57 

IJ 

L+154 

L+3 

RPB 

4 

L+2 

TP 

L+250 


RPV 

4 

L+2 

ER1 


L+248 

LA 

L+249 

18 

LA 

L+249 

18 

LTL 


A 


IDENTIFICATION 1 FT 

2FT 

READ FLOATING DECIMAL 3FT 

TAPE (48 WORDS/BLOCK) 4FT 

5FT 

IDENTIFICATION TAG 6FT 

7FT 

RDFLDC SFT 

9FT 
10 FT 

DESCRIPTION 11FT 

12FT 

THIS PROGRAM READS N 13FT 

BLOCKS OF FLOATING DEC- 14FT 

IMAL WORDS (IN EXCESS-3 15FT 

CODE) FROM THE DESIGNAT- 16FT 

ED UNISERVO. THE ROUTINE 17FT 

TRANSLATES THESE WORDS 18FT 

INTO 1103A FLOATING BI- 19FT 

NARY AND STORES THEM IN 20FT 

SEQUENTIAL STORAGES BE- 21FT 

GINNING WITH THE STORAGE 22FT 

ADDRESS SPECIFIED IN THE 23FT 

PARAMETER WORD. THE ROU- 24FT 

TINE STORES EXACTLY THAT 25FT 

NUMBER OF WORDS SPECI- 26FT 

FI ED BY THE PARAMETER 27FT 

WORD* THIS NUMBER NEED 28FT 

NOT BE A MULTIPLE OF 48. 29FT 

30FT 

31FT 

CALLING SEQUENCE 32FT 

33FT 

LOC OP U V 34FT 

3 5 FT 

L CALL RDFLDC 36FT 



FLOATING 

DECIMAL 

TAPE READ {48 

WORDS/BLOCK) PAGE 2 

/ 5 

AT 

L+246 

L+246 


37FT 

ER1 


A 

L+l TT WWWWW DDDDD 

38FT 

LTL 

18 

A 


39FT 

AT 

L+244 

L+244 

L+2 NEXT INSTRUCTION 

40FT 

RA 

L-10 

L + l 11 


41 FT 

IJ 

L+143 

L-12 


42FT 

ERO 


A 

TT - UNI SERVO NUMBER 

43FT 

ZJ 

L+l 

L + l 1 


44FT 

IJ 

L+139 

L+4 

WWWWW - NUMBER OF WORDS 

45FT 

SP 

L+125 


TO BE READ IN 

46FT 

TP 

L—43 

Q 

AND STORED* 

47FT 

MJ 


L—46 


4 8 FT 

SP 

A 

12 

DDDDD - THE ADDRESS OF 

49FT 

AT 

L+l 14 

L + 136 

THE CELL IN 

50FT 

EF 


L+135 

WHICH THE FIRST 

51 FT 

EF 


L+91 

WORD IS TO BE 

52FT 

RA 

L+130 

L+96 

STORED* 

53FT 

MJ 


L—28 


54FT 

TU 

L+4 

L+2 


55FT 

RPB 

2 

L+2 

CODING INFORMATION 

56FT 

TP 


L+132 


57FT 

TV 

L+39 

L+77- 

COMPUTER STORAGE SPACE 

5 8 FT 

SP 

L+130 

6 

REQUIRED BY THIS ROU¬ 

59FT 

TP 

A 

Q 

TINE 

60FT 

LTO 

1 

L+123 

234 CELLS(DECIMAL) 

61FT 

TP 

L+90 

L+123 


62FT 

RJ 

L+73 

L+62 

434 CELLS(OCTAL) 

63FT 

TM 

L+122 

L+122 


64FT 

TP 

L+85 

L+120 

THIS ROUTINE IS COM¬ 

65FT 

TP 

L+124 

Q 

PLETELY SELF-CONTAINED. 

66FT 

RJ 

L+69 

L+59 


67FT 

SP 

Q 

6 


68FT 

LTL 


L+115 

RESTRICTIONS 

69FT 

TP 

A 

0 


70FT 

RA 

L+64 

L+78 

A* ACCURACY. 

71FT 

TP 

L+T7 

L+l 13 


72 FT 
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RJ 

L+63 

L + 52 

THE EXPONENTIAL METHOD 

73FT 

RS 

L+114 

L+80 

USED IN CONVERSION GIVES 

74FT 

MP 

L+94 

L+113 

ACCURACY TO WITHIN A 

75FT 

LTL 

3 

L+112 

BINARY ONE IN THE 27TH 

76 FT 

LQ 

A 

35 

BIT OF THE MANTISSA IN 

77FT 

SJ 

L+l 

L+4 

ALL CASES* THE CONVER¬ 

78FT 

RS 

L+109 

L+70 

SION OF ALL INTEGERS 

79FT 

SP 

L+94 

1 

LESS THAN 10 RAISED TO 

SOFT 

AT 

Q 

Q 

THE 7TH POWER IS EXACT* 

81 FT 

SP 

Q 

4 


82FT 

LTL 


A 

B. RANGE OF PARAMETERS. 

83FT 

AT 

L+61 

L + l 1 

-3 9 

84FT 

QT 

L+75 

Q 

1.4694 X10 {APPROX.) 

85FT 

MP 

Q 

L + 80 

TO 

86FT 

LTL 


A 

38 

87FT 

AT 

L+79 

L+97 

1.7014 X 10 (APPROX.) 

88FT 

MP 

Q 

L+96 


8 9 FT 

LTL 


A 

C. MACHINE LIMITATIONS* 

90FT 

AT 

L+77 

L+94 


91 FT 

SP 

Q 

33 

AN ATTEMPT TO STORE IN¬ 

92FT 

DV 

L+92 

A 

FORMATION IN SUCH A WAY 

93FT 

AT 

L+80 

Q 

AS TO OVERFLOW THE LAST 

94FT 

B 

LTL 

2 

A 

CORE ADDRESS (I.E.17777) 
WILL CAUSE AN ERROR MS. 

9 5 FT 
96FT 

MP 

A 

L+90 


97FT 

ZJ 

L+l 

L+7 


98FT 

SF 

A 

L+47 

ERROR PROCEDURES 

99FT 

TP 

A 

A 


100FT 

LTL 

28 

L+86 

ON AN ERROR MS» Q CON¬ 

101 FT 

RA 

L+86 

L+55 

TAINS THE PARAMETER WORD 

102FT 

AT 

L+43 

L+85 

AND A THE ERROR CODE* 

103FT 

SJ 

L+l 

L+3 


104FT 

ST 

A 

Q 

A. PARITY ERROR. FOUR 

105FT 

MJ 


L+13 

UNSUCCESSFUL ATTEMPTS TO 

106FT 

TJ 

L+51 

L+8 

READ A BLOCK. 

107 FT 

TP 

L+41 

L+39 


108FT 
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TN 

L+56 

A 

TP 

L+77 

Q 

QJ 

L+l 

L + 2 

TN 

A 

A 

TP 

L+40 

Q 

MJ 


L+3 

LTR 

27 

Q 

TP 

L+71 

A 

SJ 

L+l 

L+2 

TN 

G 

Q 

AT 

Q 


RA 

L-l 

L+29 

EJ 

L+38 

L + 16 

RA 

L—65 

L+48 

IJ 

L+60 

L-67 

MJ 


L-107 

TP 

L+23 

L+61 

LQ 

Q 

6 

SP 

L+59 

2 

SA 

L+58 

1 

QA 

L+33 

A 

ST 

L+21 

L+56- 

IJ 

L+54 

L—5 

RS 

L+52 

L+l 8 

ZJ 

L+2 

L + l 

TN 

L+52 

L+52 

TP 

L+51 


MJ 

SP 

L+3 5 


MJ 


L-91 

SP 

L+8 


ZJ 

L+l 

L-137 

SP 

L+32 


MJ 


L-95 

B 

020061400001 


B 

020060200000 


MP 

Q 

L+29 


CODE.660303050001 

B. CORE OVERFLOW. 

CODE.660303050002 

C. POWER OVERFLOW. THE 
LARGEST FLOATING BINARY 
NUMBER IS SUBSTITUTED 
FOR OFFENDING NUMBER AND 
ERROR MS OCCURS ONLY 
AFTER ALL THE NUMBERS 
SPECIFIED BY W HAVE BEEN 
READ IN AND STORED. 

CODE.660303050003 

D. POWER UNDERFLOW. THE 
OFFENDING NUMBER IS SET 
TO ZERO AND NO MS OCCURS 

CODE.NONE. 


REMARKS 

THE TAPE FORMAT RE¬ 
QUIRED BY THIS ROUTINE 
IS DESCRIBED BELOW. 

FIXED BLOCK LENGTH-120 
WORDS PER BLOCK. EACH 
BLOCK CONTAINS 48 FLOAT¬ 
ING DECIMAL NUMBERS IN 
EXCESS-3 CODE. A NUMBER 
IS REPRESENTED BY 12 
EXCESS-3 CHARACTERS IN 


109FT 
110FT 
111FT 
112FT 
113FT 
114FT 
115 FT 
116FT 
117FT 
118FT 
119FT 
120FT 
121FT 
122FT 
123FT 
124FT 
125FT 
126FT 
127FT 
128FT 
129FT 
130FT 
131FT 
132FT 
133FT 
134FT 
135FT 
136FT 
137FT 
138FT 
139FT 
140FT 
141FT 
142FT 
143FT 
144FT 
145FT 
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B 

B 

B 

B 1 

B 2 

B 3 

B 4 

B 5 

B 10 

B 27 

B 60 

B 201 

B 400 

B 353100020000 

B 037777777777 

B 170000 

B 77 

B 77777 

B 020000150000 

B33 4 

B 035440262675 

B 600000171150 

B 270524354513 

B 324464741134 

B 200000 

B 660303050001 

B 660303050002 

B 660303050003 

B33 2 

B 213453407440 

B 230157701214 

B 245775532516 

B 265011714640 

B 305316250212 

B 327211763126 

B 352601433477 

RSRV 103 103 


THE FOLLOWING ORDER. 

1. SIGN OF THE NUMBER 

2. 8 DIGIT FRACTION 

3. SIGN OF THE POWER 

4 2 DIGIT POWER 

(E.G*» THE NUMBER -1*5 
IS REPRESENTED BY THE 12 
CHARACTERS -15000000+01) 


THE FLOATING DECIMAL 
TAPE READ SUBROUTINE 
(RDFLDC) AND THE FLOAT¬ 
ING DECIMAL TAPE WRITE 
SUBROUTINE (WFLDEC) ARE 
COMPLEMENTARY ROUTINES* 

THE RDFLDC ROUTINE WILL 
READ TAPES PREPARED BY 
THE WFLDEC ROUTINE AND 
THE TAPES PREPARED BY 
THE WFLDEC ROUTINE CAN 
BE LISTED ON THE HIGH 
SPEED PRINTER. 

A USEFUL CONSEQUENCE 
OF THIS IS THAT TAPES 
TO BE READ IN BY THE 
RDFLDC ROUTINE CAN BE 
LISTED ON THE HIGH SPEED 
PRINTER FOR VERIFICATION 
PURPOSES PRIOR TO READ¬ 
ING THEM INTO THE 1103A. 


146FT 

147FT 

148FT 

149FT 

150FT 

151FT 

152FT 

153FT 

154FT 

155FT 

156FT 

157FT 

158FT 

159FT 

160FT 

161FT 

162FT 

163FT 

164FT 

165FT 

166FT 

167FT 

168FT 

169FT 

170FT 

171FT 

172FT 

173FT 

174FT 

175FT 

176FT 

177FT 

178FT 

179FT 

180FT 

181FT 

182FT 
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1. IDENTIFICATION 

WRITE FLOATING DECIMAL TAPE 
Identification Tags WFLDEC 

2. DESCRIPTION 

This subroutine writes n blocks of floating decimal information suitable 
for High Speed Printer listing. There are I 4.8 words per block. Refer to 
the Read Floating Decimal Tape write-up (1103AF-SUBR-00020S) for descrip¬ 
tion of the tape format, 

3. CALLING SEQUENCE 


LOC 

OP 

U 

V 

L 

CALL 

WFLDEC 


L+l 

TT 

NNNNN 

WWV 

L+2 

Normal 

Return 


TT - Uniservo number. 



NNNNN - Number of blocks 

to write. 


WWV - Address 

of first 

word of output. 


U. CODING INFORMATION 

Space Required: 326 cells (decimal) 

506 cells (octal), 

5. ERROR PROCEDURE 

In case of a power overflow during conversion, the routine types OV on 
the typewriter and goes to the error exit. Depressing the start button 
will cause a normal exit. 
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WFLDEC MJ 


L+4 

MS 


L + l 

MJ 

B 

SP 

L-2 

15 

TU 

A 

L+l 

TP 


L—3 

RA 

L-5 

L + 169 

TV 

L-5 

L + 194 

LQ 

L+166 

Q+9 

SP 

L-7 

18 

LT 


A 

QS 

A 

L+178 

LQ 

L—10 

Q+21 

QT 

L+175 

L + l 8 5 

IJ 

L+184 

L+2 

MJ 


L—14 

TV 

L+60 

L+54 

TP 

L+159 

L+182 

SP 

L+18 3 

15 

TU 

A 

L+2 

TP 

L+170 

L+303 

TP 


A 

SJ 

L+l 

L+3 

TP 

L+16 8 

L+300 

TN 

A 

A 

RJ 

L+78 

L+52 

LT1 

1 

Q 

RA 

L+296 

L+164 

TP 

L+166 

L+296 

LA 

L+294 

6 

SP 

Q 

2 

SA 

Q 

1 

TP 

A 

Q 

LT 


A 

SA 

L+159 



IDENTIFICATION 1WF 

2 WF 

WRITE FLOATING DECIMAL 3WF 

TAPE (48 WORDS/BLOCK) 4WF 

5WF 

6WF 

IDENTIFICATION TAG 7WF 

8WF 

WFLDEC 9WF 

10WF 

11WF 

DESCRIPTION 12WF 

13WF 

THIS SUBROUTINE WRITES 14WF 

N BLOCKS OF FLOATING 15WF 

DECIMAL INFORMATION ON 16WF 

THE DESIGNATED UNISERVO. 17WF 

THE TAPE IS WRITTEN IN 18WF 

EXCESS-3 CODE IN A FORM 19WF 

SUITABLE FOR HIGH SPEED 20WF 

PRINTER LISTING. THE 21WF 

ROUTINE TRANSLATES PACK- 22WF 

ED FLOATING BINARY NUM- 23WF 

BERS INTO THE FORM DES- 24WF 

CRIBED UNDER REMARKS. 25WF 

THESE NUMBERS ARE TAKEN 26WF 

FROM SEQUENTIAL STORAGES 27WF 

BEGINNING WITH THE STOR- 28WF 

AGE ADDRESS SPECIFIED IN 29WF 

THE PARAMETER WORD. THE 30WF 

ROUTINE TRANSLATES AND 31WF 

WRITES FLOATING DECIMAL 32WF 

NUMBERS IN INCREMENTS OF 33WF 

48 NUMBER5 ONLY. 34WF 

35WF 

36WF 
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AT 

L+288 

L+288 

IJ 

L+288 

L—7 

TP 

L+155 

L + 163 

SP 

Q 

2 

SA 

Q 

1 

TP 

A 

Q 

LT 


A 

AT 

L+282 

A 

SA 

L+l 50 

6 

TP 

A 

L+280 

IJ 

L+155 

L-7 

TP 

L+157 

A 

SJ 

L+l 

L+3 

RA 

L+276 

L + 143 

TN 

L+154 

A 

DV 

L+147 

Q 

TP 

A 

L+152 

TP 

L+139 

A 

SA 

L+271 

6 

SA 

Q 


SA 

L+138 

6 

SA 

L+147 


AT 

L+136 

L+267 

LQ 

L+119 

1 

QJ 

L+3 

L+l 

RPB 

2 

L+12 

TP 

L+262 

L+259 

LA 

L+261 

18 

LT 


A 

AT 

L+114 

L+258 

LA 

L+259 

18 

LT 


A 

AT 

L+256 

L+256 

RA 

L+256 

L+lll 

RPB 

5 

L+2 

TP 

L+250 
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CALLING SEQUENCE 37WF 

38WF 

LOC OP U V 39WF 

40WF 

L CALL WFLDEC 41WF 

42WF 

L+l TT NNNNN VVVVV 43WF 

44WF 

L+2 NEXT INSTRUCTION 45WF 

46WF 

47WF 

TT - UNISERVO NUMBER. 48WF 

49WF 

NNNNN - NUMBER OF BLOCKS 50WF 

TO BE WRITTEN. 51WF 

5 2WF 

VVVVV - ADDRESS OF THE 53WF 

CELL IN WHICH 54WF 

THE FIRST NUMBER 55WF 

TO BE WRITTEN IS 56WF 

STORED. 57WF 

58WF 

59WF 

CODING INFORMATION 60WF 

61WF 

COMPUTER STORAGE RE- 62WF 

QUIRED BY THIS ROUTINE. 63WF 

64WF 

326 CELLS (DECIMAL) 65WF 

66WF 

506 CELLS (OCTAL) 67WF 

68WF 

THIS ROUTINE IS COM- 69WF 

PLETELY SELF-CONTAINED. 70WF 

71WF 

72WF 
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RA 

L—1 

L+l 2 4 

RA 

L+129 

L+119 

IJ 

L+126 

L-55 

EF 


L+l 15 

RP1 

120 

L-61 

EW1 


L+129 

LT 

9 

L+126 

LQ 

A 

35 

TM 

Q 

L+125 

ZJ 

L+l 

L+23 

RS 

L+122 

L+99 

MP 

L+99 

L+121 

LT 

1 

L+120 

LQ 

A 

35 

SJ 

L+l 

L+4 

RS 

L+117 

L+105 

SP 

L+56 

1 

AT 

Q 

Q 

MP 

Q 

L+93 

LT 

1 

A 

LT1 

3 

Q 

LT 


A 

AT 

L+90 

L+3 

RJ 

L+79 

L+10 

MP 

B 

A 

L+109 

SA 

L+87 


EJ 

A 

L+4 

DV 

L+98 

Q 

RA 

L+103 

L+91 

RA 

Q 

L+90 

TP 

MJ 

A 

L+102 

LQ 

Q 

35 

MJ 


L+53 

RS 

L+100 

L+90 
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RESTRICTIONS 73WF 

74WF 

75WF 

A. ACCURACY. 76WF 

77WF 

THE CONVERSION FROM 78WF 

FLOATING BINARY TO 79WF 

FLOATING DECIMAL IS 80WF 

ACCURATE TO WITHIN A ONE 81WF 
IN THE LEAST SIGNIFICANT 82WF 
DIGIT OF THE DECIMAL 83WF 

FRACTION* 84WF 

85WF 

86WF 

B. RANGE OF PARAMETERS. 87WF 

88WF 

00040000000 MAGNITUDES 89WF 

OF FLOAT- 90WF 
TO ING BINARY 91WF 

NUMBERS IN 92WF 

37777777777 OCTAL CODE 93WF 

94WF 

THE ABOVE CORRESPONDS 95WF 

APPROXIMATELY TO THE 96WF 

FOLLOWING RANGE OF DEC- 97WF 
MAL NUMBERS. 98WF 

-39 99WF 

1.4694 X 10 100WF 

101WF 

TO 102WF 

38 103WF 

1.7014 X 10 104WF 

105WF 

106WF 

C. MACHINE LIMITATIONS. 107WF 

108WF 
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MP 

L+34 

L+99 

LT 

3 

L+98 

LQ 

A 

35 

SJ 

L+l 

L+4 

RS 

L+95 

L+80 

SP 

L+31 

1 

AT 

0 

Q 

RJ 

L+59 

L+44 

MP 

A 

L + 90 

ZJ 

L+l 

L+7 

SF 

A 

L+25 

TP 

A 

A 

LT 

28 

L+86 

RA 

L+86 

L+65 

AT 

L+21 

L+85 

SJ 

L+l 

L+3 

ST 

A 

Q 

MJ 


L+15 

TJ 

L+61 

L+10 

PR 


L+67 

PR 


L+ll 

MJ 


L—128 

TN 

L+58 

A 

TP 

L+75 

Q 

OJ 

L+l 

L+2 

TN 

A 

A 

TP 

L+62 

Q 

MJ 


L+3 

LT1 

27 

Q 

TP 

L+69 

A 

SJ 

L+l 

L+2 

TN 

Q 

31017)8 

AT 

MJ 

0 



B 324464741134 
B 


NO ATTEMPT IS MADE TO 109WF 

CHECK FOR ILLEGAL STOR- 110WF 

AGE ADDRESSES BEING GEN- 111WF 

ERATED FROM THE ADDRESS 112WF 

SPECIFIED IN THE PARA- 113WF 

METER WORD. 114WF 

115 W F 
116WF 

ERROR PROCEDURES 117WF 

118WF 

IN CASE OF A POWER 119WF 

OVERFLOW DURING CONVER- 120WF 

SION» THE ROUTINE TYPES 121WF 

THE LETTERS 0 V ON THE 122WF 

FLEXIWRITER AND GOES TO 123WF 

THE ERROR EXIT. DEPRESS- 124WF 

ING THE START BUTTON 125WF 

WILL RESULT IN A NORMAL 126WF 

EXIT FROM THE ROUTINE. 127WF 

THE BLOCK OF 48 WORDS 128WF 


WHICH CONTAINS THE WORD 129WF 
THAT CAUSED THE OVERFLOW 130WF 
IS NOT RECORDED ON TAPE. 131WF 

13 2WF 
133WF 


REMARKS 134WF 

135WF 

THE TAPE FORMAT EMPLOY- 136WF 
ED IN THE ROUTINE IS 137WF 

DESCRIBED BELOW. 138WF 

139WF 

FIXED BLOCK LENGTH-120 140WF 
WORDS PER BLOCK. EACH 141WF 

BLOCK CONTAINS 48 FLOAT- 142WF 
ING DECIMAL NUMBERS IN 143WF 
EXCESS-3 CODE. A NUMBER 144WF 
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B34 

1 


IS REPRESENTED BY 12 

145WF 

B 

213453407440 


EXCESS***3 CHARACTERS IN 

146WF 

B 

230157701214 


THE FOLLOWING ORDER. 

147V/F 

B 

245775532516 



148 W F 

B 

265011714640 


1. SIGN OF THE NUMBER 

149WF 

B 

305316250212 



150WF 

B 

327211763126 


2. 8 DIGIT FRACTION 

151WF 

B 

352601433477 



152WF 

B 

270524354513 


3. SIGN OF THE POWER 

15 3 W F 

B 

600000171150 



15 4WF 

B 

035440262675 


4. 2 DIGIT POWER 

15 5 W F 

B 

177000000000 



156WF 

B 

201000000000 


CE.G. THE NUMBER -1.5678 

157WF 

MP 

Q 

L-13 

IS DESIGNATED BY THE 12 

15 8 W F 

B 

037777777777 


CHARACTERS * 

159WF 

SP 

0 

4 


160WF 

LT 


A 

-15678000+01). 

161WF 

AT 

L-4 

L+ll 


162 W F 

QT 

L-4 

Q 


163WF 

MP 

Q 

L-9 

TAPES PREPARED BY THIS 

164WF 

LT 


A 

ROUTINE ARE LISTED BY 

165WF 

AT 

L-12 

L + 38 ' 

THE HIGH SPEED PRINTER 

166WF 

MP 

Q 

L+37 

AS FOLLOWS. 

167WF 

LT 


A 


168WF 

AT 

L-16 

L + 3 5 

8 FLOATING DECIMAL 

169WF 

SP 

0 

33 

WORDS PER LINE OF 

170WF 

DV 

L+33 

A 

HIGH SPEED PRINTER 

171WF 

AT 

L-27 

Q 

OUTPUT. 

172WF 

B 




173WF 

LT 

2 

A 

6 LINES OF PRINTER 

174WF 

MJ 



OUTPUT FOR EACH 48 WORD 

175WF 


170) B 

BLOCK THAT IS WRITTEN 

176WF 



1 

ON THE TAPE. 

177WF 



57 5 B 


178WF 

B 

525252525252 



179WF 

B 

010101000000 


THE FLOATING DECIMAL 

180WF 



FLOATING DECIMAL TAPE WRITE ( 


B 000000010101 

B 177 

B 115040465024 

B 324464741135 

SS A 37 

B 254 

B 201 

B 400000000005 

B 400000000000 

B 000000077777 

B 020064600000 

1 

2 

3 

4 

5 
8 

10 
127 


RSRV 127 
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TAPE READ SUBROUTINE 181WF 

{RDFLDC) AND THE FLOAT- 182WF 
ING DECIMAL TAPE WRITE 183WF 
SUBROUTINE (WFLDEC) ARE 184WF 
COMPLEMENTARY ROUTINES. 185WF 
THE RDFLDC ROUTINE WILL 186WF 
READ TAPES PREPARED BY 187WF 

THE WFLDEC ROUTINE AND 188WF 

THE TAPES PREPARED BY 189WF 

THE WFLDEC ROUTINE CAN 190WF 

BE LISTED ON THE HIGH 191WF 

SPEED PRINTER. 192WF 

A USEFUL CONSEQUENCE 193WF 

OF THIS IS THAT TAPES 194WF 

TO BE READ IN BY THE 195WF 

RDFLDC ROUTINE CAN BE 196WF 

LISTED ON THE HIGH SPEED 197WF 
PRINTER FOR VERIFICATION 198WF 
PURPOSES PRIOR TO READ- 199WF 
ING THEM INTO THE 1103A. 200WF 



1103AF-SUBR-00022S 

1. IDENTIFICATION 

BINARY card read 
I dentification Tags RDBIN 

2. DESCRIPTION 

This routine reads full binazy cards (22 computer words per card) as pre¬ 
pared by the PUNCH BINARY CARD subroutine. The transfer card (see 
Remarks) following the full binary cards terminates card reading. 

3. CALLING SEQUENCE 

LOC OP U ¥ 

L CALL RDBIN 

L+l Normal return 

U. CODING INFORMATION 

Space required; 68 cells (decimal) 

10U cells (octal). 

Loading optionsS 

a. Stop . 

If MSI switch is set* the routine will stop before transferring con¬ 
trol to the address in the transfer card (see Remarks)) if MSI 
switch is OFF, the transfer of control is automatic. 

b. Check sum . 

If MJ1 switch is set, the routine will not perform a check sum compari¬ 
son) if MJ1 switch is OFF, the card check sum is compared with the 
computed check sum* 

5. RESTRICTIONS 

An attempt to store information in an illegal address will result in an 
SCC fault. 

No attempt should be made to store information in FI. 

6. ERROR PROCEDURES 

Check sum disagreement will result in an MS with (PAK)«0, 



- 2 - 
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6. ERROR PROCEDURES (Cont'd) 

Restarting when a BULL failure occurs is accomplished as follows: 
a* Clear the BULL. 

b. Position the cards manually and transfer to RDBIN or to the calling 
sequence in the main program. 

7. REMARKS 


Card Format: 

a. Full Binary Card: 



(1) Word Count . The u-address of 9L contains the number of words 
beginning with 8L to be read in from card. 

(2) Card Origin . The v-address of 9L contains the origin or initial 
core or drum location into which the card is read. 

(3) Check Sum . The 9R word is the 36 -bit check sum. 

(U) Complement Bits . A punch is column 79 and/or 80 indicates that 
the left and/or right half row has . been complemented and will 
cause the read routines to recomplement the respective entry. 

b. Transfer Card: 




3 
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7. REMARKS (Cont'd) 

(1) Identification. A punch in column 1 of 9L identifies the 
transfer card* 

(2) Transfer Address * The v-address of 9L contains the transfer 
address, which is the location in core or drum to which control 
is transferred on completion of loading* 
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RDBIN - BINARY CARD READ 1RB 

2RB 

CALLING SEQUENCE 3RB 

4RB 

L CALL RDBIN 5RB 

L+l {NORMAL RETURN) 6RB 

7RB 

OCCUPIES 68 CELLS (DEC) 8RB 

9RB 

ROUTINE LOADS FULL 8INA- 10RB 

RY CARDS* LOADING IS 11RB 

TERMINATED BY A TRANS- 12RB 

FER CARD* 13RB 

14RB 

BINARY CARD FORMAT 15RB 

16RB 

9L U-ADR* NO. OF WORDS 17RB 

V-ADR* CARD ORIGIN 18RB 

19RB 

9R 36 BIT CHECK SUM 20RB 

21RB 

WORDS ARE STORED IN 22RB 

8L* 8R# 7L> 7R» ETC* 23RB 

24RB 

A PUNCH IN COL* 79 OR 25RB 

80 INDICATES THAT THE 26RB 

LEFT AND/OR RIGHT 27RB 

HALF-ROW IS STORED IN 28RB 

COMPLEMENTED FORM. 29RB 

30RB 

TRANSFER CARD FORMAT 31RB 

32RB 

9L U-ADR* TRANSFER ADR 33RB 

34RB 

PUNCH IN COL. 1» 9L 35RB 

36RB 
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B 13 

B 2 

L + 5 

B 753000000000 
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CHECK. SUM COMPARISONS 37RB 

WILL NOT BE PERFORMED 38RB 

IF MJ1 IS SET. 39RB 

40RB 

41RB 
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IDENTIFICATION 

PUNCH BINARY CARDS 
Identification Tags PCHBIN 

DESCRIPTION 

This routine punches the contents of the storages indicated in the 
parameter word into 80 column cards. Three partial cards are punched, 
which are oombined by one 519 Reproducer step into one full binary 
card (22 computer words per card). 


CALLING SEQUENCE 


LOG 

OP 

u 

V 

L 

CALL 

PCHBIN 


L+l 

00 

AAAAA 

BBBBB 

L+2 

Normal 

return 



AAAAA 31 Location of first word to be punched. 
BBBBB * Location of last w>rd to be punched. 

CODING INFORMATION 


Space required: 215 cells (decimal) 
327 cells (octal) 


RESTRICTIONS 


It is assumed that the addresses specified in the parameter word are 
both legal addresses and that they are both core addresses or both 
drum addresses. 

ERROR PROCEDURES 


None. 

REMARKS 

A. See BINARY CARD READ subroutine write up for details of card format 

B. Reproducer procedure: 

a. The order of the partial binary cards must be preserved. 

b. A special reproducer board will produce full binary cards from 

the partial cards. 

c. Place partial cards in the punch side and set PX1 to column 78 

d. Sorting the deck on column 77 will select the full binary deck 
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PCHBIN MJ 


L + 3 

B 



MJ 


FILL 

SP 

L—1 

15 

TU 

A 

L+l 

TP 

FILL 

L—4 

RA 

L—4 

L+102 

TP 

L-5 


EF 


L+l 15 

SP 

L—8 

21 

LT 


L+118 

SP 

A 

15 

LT1 

36 

L+117 

TP 

L+113 

L+122 

SP 

L+l 14 


SS 

L+109 


SJ 

L+l 

L+2 

TP 

L+108 

L+118 

SP 

L+lll 


ST 

L + 109 

L+lll 

SJ 

L—18 

L+60 

SS 

L+81 


SJ 

L+2 

L + l 

TP 

L+79 

L+107 

RA 

L+106 

L+84 

SP 

L+105 

15 

AT 

L+102 

L+l 10 

SP 

L+101 

15 

TU 

A 

L+7 

RP1 

35 

L+2 

TP 

L+96 

L+107 

SP 

L+99 

15 

AT 

L+71 

L+2 

RA 

L+2 

L + 102 

RP3 


L+2 

TP 


L+103 


IDENTIFICATION 1PB 

2PB 

PUNCH BINARY CARDS 3PB 

IDENTIFICATION TAG- 4PB 

PCHBIN 5PB 

6PB 

DESCRIPTION 7PB 

8PB 

THIS ROUTINE PUNCHES 9PB 

THE CONTENTS OF THE 10PB 

STORAGES INDICATED IN 11PB 

THE PARAMETER WORD INTO 12PB 

80 COLUMN CARDS* SINCE 13PB 

THE BULL CANNOT PUNCH A 14PB 

FULL BINARY CARD* 3 15PB 

PARTIAL CARDS ARE PUN- 16PB 

CHED* WHICH ARE COM- 17PB 

BINED BY ONE 519 REPRO- 1SPB 

DUCER STEP INTO ONE 19PB 

FULL BINARY CARD* 20PB 

21PB 

CALLING SEQUENCE 22PB 

23PB 

LOC OP U V 24P8 

25PB 

L CALL PCHBIN 26PB 

L+l 00 AAAAA BBBBB 27PB 

L+2 (NORMAL RETURN) 28PB 

29PB 

AAAAA=LOC• OF FIRST 30PB 

WORD TO BE PUNCHED 31PB 

BB8BB=L0C• OF LAST 32PB 

WORD TO BE PUNCHED 33PB 

34PB 

CODING INFORMATION 35PB 

36PB 
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SP 

L+100 


RP2 

22 

L+2 

SA 

L+100 


LT1 


L+98 

TP 

L+64 

L+91 

TP 

L+64 

L+14 

TU 

L+63 

L+6 

TU 

L+73 

L+l 1 

TP 

L+64 

L+90 

TV 

L+53 

L+9 

TP 

L+61 

L + 86 

TP 

L+79 

L+8 6 

TP 


Q 

QJ 

L+l 

L+2 

RA 

L+83 

L+58 

IJ 

L+81 

L-2 

RS 

L+81 

L+57 

SJ 

L+3 

L+l 

RA 


L+54 

TN 

L+81 

L+81 

RA 

L-8 

L+54 

RA 

L-2 

L+54- 

TV 

L—34 

L—4 

IJ 

L+75 

L—13 

RA 

L-6 

L+50 

IJ 

L+70 

L—17 

RP1 

36 

L+2 

TP 

L+63 

L+109 

TP 

L+51 

L+19 

TP 

L+51 

L+20 

RJ 

L+22 

L+16 

RJ 

L+34 

L+23 

RP1 

36 

L+2 

TP 

L+57 

L+103 

RJ 

L+18 

L+12 

TV 

L+3 5 

L+135 
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OCCUPIES 215 CELLS 37PB 

(327 OCTAL) 38PB 

39PB 

RESTRICTIONS 40PB 

41PB 

IT IS ASSUMED THAT THE 42PB 

ADDRESSES SPECIFIED IN 43PB 

THE PARAMETER WORD ARE 44PB 

BOTH LEGAL ADDRESSES* 45PB 

AND THAT THEY ARE BOTH 46PB 

CORE ADDRESSES OR BOTH 47PB 

DRUM ADDRESSES* 48PB 

49PB 

ERROR PROCEDURES 50PB 

51PB 

NONE 52PB 

53PB 

REMARKS 54PB 

55PB 

A* BINARY CARD FORMAT 56PB 

57PB 

9L U-ADR. NO* OF WORDS 58PB 

V-ADR* CARD ORIGIN 59PB 

60PB 

9R 36 BIT CHECK SUM 61PB 

62PB 

WORDS ARE STORED IN 63PB 

8L* 8R* 7L* 7R* ETC. 64PB 

65PB 

A PUNCH IN COL* 79 OR 66PB 

80 INDICATES THAT THE 67PB 

LEFT AND/OR RIGHT 68PB 

HALF-ROW IS STORED IN 69PB 

COMPLEMENTED FORM* 70PB 

71PB 

B* REPRODUCER PROCEDURE 72PB 
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RJ 

L+29 

L+17 

RP1 

36 

L+2 

TP 

L+52 

L+98 

RJ 

L+13 

L+7 

RA 

L+130 

L+46 

RJ 

L+24 

L+12 

RA 

L+50 

L+34 

MJ 


L-66 

EF 


L+33 

MJ 


L-60 

RP3 

8 

L+2 

TP 

L+53 

L+89 

RP3 

4 

L+2 

TP 

L+75 

L+lll 

RA 

L-3 

L+32 

RA 

L-2 

L+30 

MJ 



EF 


L+24 

TP 

L+14 

L+40 

TV 

L+2 5 

L+3 

TV 

L+23 

L+3 

TV 

L+27 

L+3 

EW 



EW1 



EW1 



RA 

L-3 

L+ll 

RA 

L-3 

L+23 

RA 

L-3 

L+22 

IJ 

L+30 

L—6 

MJ 



B 

25 


RP3 


L—67 

B 

13 


TN 

L+31 

L+31 

B 

4 


B 

43 
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73PB 

THE ORDER OF THE PAR- 74PB 

TIAL BINARY CARDS MUST 75PB 

BE PRESERVED. 76PB 

77PB 

PLACE PARTIAL CARDS IN 78PB 

THE PUNCH SIDE AND SET 79PB 

PX1 TO COLUMN 78. 80PB 

{WIRING DIAGRAM FOR 81PB 

BOARD INCLUDED IN 82PB 

WRITE-UP) 83PB 

84PB 

SORTING THE DECK ON 85PB 

COLUMN 77 WILL SELECT 86PB 

THE FULL BINARY DECK. 87PB 

88PB 

89PB 

90PB 


91PB 

92PB 

93PB 

94PB 

95PB 

96PB 

97PB 

98PB 

99PB 

100PB 

101PB 

102PB 

103PB 

104PB 

105PB 

106PB 

107PB 

108PB 
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B 1 

B 23 

B 100000 

B 100001 

B 26 

B 400000000012 

B 3 

TP L+21 L+57 

TP L+44 L+80 

B 400004 

B 1000010 

B 13 

L+53 

B 2 

B 14 

B 400000000010 

B 
B 
B 
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109PB 
110PB 
111PB 
112PB 
113P8 
114P8 
115P8 
116PB 
117PB 
118PB 
119PB 
12QP8 
12 IPS 
122PB 
123PB 
124PB 
125PB 
126PB 
127P9 
12SPB 
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PCHBIN _ | PX 1 must be set to 

Punch Binary Hards_column 78._ 






























